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 !

utilise des nombres aléatoires

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.