[DELPHI]Botão que foge do Mouse

por **Fenix** Sáb Fev 20, 2010 3:58 pm

Vamos Ao que interessa!

Button1.Left := Button1.Left +1;
Button1.Top := Button1.Top -1;
if Button1.Top = 0 then
Button1.Top := 576; //Este numero varia, coloque o botão no canto extremo inferior do form e veja na propriedade Top o valor.
if Button1.Left = 784 then //Este numero varia, coloque o botão no lado extremo esquerdo do form, veja na propriedade Left o valo.
Button1.Left := 0;

Pronto Basta Salvar e compilar (F9) Wink