aide delphiRésolu

Question

slt j'ai mit au point un programme mais il lui manque un touvhe final c'est secouer (vibrer) l'ecran comme un wiiiz de MSN si vous me comprenais

une aide de vous svp j'ai vraiment besoin de se source alors................

exuser moi si il y'a des fautes d'orthographe je suis algerie de 15ans

dominique.stock · Answer

bonjour,
procedure WindowShake(wHandle: THandle) ;
const
   MAXDELTA = 4;
   SHAKETIMES = 500;
var
   oRect, wRect :TRect;
   deltax : integer;
   deltay : integer;
   cnt : integer;
   dx, dy : integer;
begin
   //remember original position
   GetWindowRect(wHandle,wRect) ;
   oRect := wRect;

   Randomize;
   for cnt := 0 to SHAKETIMES do
   begin
     deltax := Round(Random(MAXDELTA)) ;
     deltay := Round(Random(MAXDELTA)) ;
     dx := Round(1 + Random(2)) ;
     if dx = 2 then dx := -1;
     dy := Round(1 + Random(2)) ;
     if dy = 2 then dy := -1;
     OffsetRect(wRect,dx * deltax, dy * deltay) ;
     MoveWindow(wHandle, wRect.Left,wRect.Top,wRect.Right - wRect.Left,wRect.Bottom - wRect.Top,true) ;
   end;
   //return to start position
   MoveWindow(wHandle, oRect.Left,oRect.Top,oRect.Right - oRect.Left,oRect.Bottom - oRect.Top,true) ;
end;

Dom

zakilebleu · Answer

slcomme je l'entre se source mec

dominique.stock · Answer

Je ne comprends pas.


Pour le lancer :


windowshake(application.MainForm.Handle);

Dom

zakilebleu · Answer

oui car ca m'ecrit qu'il y'a une faut mais moi se que je veut c'est que de bouger le form comme msn pas tout l'ecran

dominique.stock · Answer

cela ne bouge que la form que tu spécifies ...


et la faute c'est ?

Dom

zakilebleu · Answer

c'est koi la faute

zakilebleu · Answer

slt et avec koi je l'essey un timer ou un boutton

dominique.stock · Answer

la faute :
oui car ca m'ecrit qu'il y'a une "faut "
 mais ...

.. ?

dans un bouton, un timer, ce que tu veux ...

Dom

zakilebleu · Answer

slt envoie moi un fichier pour voir

Cirec · Answer

@Dominique.Stock 
c'est gentil de ta part mais si on commence à doubler tout les codes du net on n'est pas redu ^^
Si il a mis au point un programme "comme il le dit" il doit être capable d'utiliser cette procédure

le source a été supprimé l'original se trouve ici :
http://delphi.about.com/od/adptips2005/qt/windowshake.htm

 
@+
Cirec

<hr siz="" />

Aide delphi

10 réponses

Votre réponse

Discussions similaires