Faire bouger une form en delphi

Faire bouger une form en delphi - Delphi/Pascal - Programmation

Marsh Posté le 13-09-2002 à 01:04:47    

Salut ! l'idée c'est de faire bouger ma form de facon automatique ... sans se servir de la souris ni de rien...
 
bref faudrait qu'elle rebondisse sur les cotés de l'écran dans le sens anti-horaire .. mais de facon a ce qu'elle ne suive pas toujours la meme trajectoire.
 
screen.Width et screen.Height  ... pour déterminé l'écran et form.top et form.left pour la form ...
 
tout suggestion sont la bienvenue .. de facon a prendre la plus efficace ... en attendant .. jcontinue a cherche la meilleur formule !
Merci !

Reply

Marsh Posté le 13-09-2002 à 01:04:47   

Reply

Marsh Posté le 13-09-2002 à 18:50:41    

:bounce:

Reply

Marsh Posté le 13-09-2002 à 20:35:29    

utilise des nombres aléatoires

Reply

Marsh Posté le 19-09-2002 à 02:54:05    

var // Généraux...
dirhor: integer;
dirver: integer;
 
procedure TForm1.Timer1Timer(Sender: TObject);
 
begin
Randomize;
 
if (form1.left + form1.width > screen.Width) OR (form1.Left < 0) OR (form1.Top < 0) OR (form1.top + form1.height > screen.height) then
 
Begin
dirhor:=Random(20) - 10;
dirver:=Random(20) - 10;
end;
form1.left := form1.left + dirhor;
form1.Top := form1.Top + dirver;
end;
 
end.

Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed