fare takip

[sonsuz052]

Selam arkadaşlar benim sorunum 4 tane top fareyi belli bir geçikme ile takip edecek fakat timer kullanılmayacak yardımcı olursanız sevinirim

[akgun83]

Merhabalar,

Forma bir tane radiobutton koyup captionunu boş bırakın

Kod: Tümünü seç

procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
  RadioButton1.Left:=x-30;
  RadioButton1.Top:=y+30;
end;

diğer toplarıda bu şekilde yapabilirsiniz.

Kolay Gelsin, Saygılar.

[gkimirti]

Mouse nesnesinin CursorPos ozelligini istedigin yerde cagırıp mouse koordinatlarını alabilirsin (ister timer icinde ister baska bir yerde)