PCTurk | Aşk Sevgi Resimleri , Mektupları , silkroad , msn avatarlar , komik (Arşiv Ana sayfa) => Delphi

Konu: Kaçan Buton - Oyun sitelerinde olanlardan

Sayfa: [ 1 ]

sWaGg€r 06.07.2008 20:56:43
Mouse ile üzerine gelince yer değiştiren buton
procedure TForm1.Button1MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
randomize;
button1.Top :=random(form1.Height);
button1.Left:=random(form1.Width);
end;


Sayfa: [ 1 ]