چگونه با حرکت موس یر روی فرم image (عکس ) هم با موس حرکت کند ؟

[Valadi]

چگونه با حرکت موس بر روی فرم image (عکس ) هم با موس حرکت کند ؟ البته image به دنبال موس باشد

[vcldeveloper]

قبل از ایجاد تاپیک جدید در سایت جستجو کنید:
https://barnamenevis.org/showthread.php?t=49351

[Valadi]

آقای کشاورز
چیزی دستگیرم نشد ضمنا من می خواهم یک عکس بزرگ تر سایز شکل های موس باشد به حرکت در آید

[soroush_vs]

باید از رویداد ها و Message ها استفاده کنید.
البته میتونید بایک تایمر ساده تر ربنامه رو انجام بدید.در هر لحظه مکان عکستون رو مکان ماوس ست کنید.

[vcldeveloper]

می تونید از OnMouseMove و کدی شبیه به کد زیر استفاده کنید:

procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X,Y: Integer);

const

  Distance = 16;

begin

  if Y >= (Height - Image1.Height) then

    Image1.Top := Y - Image1.Height

  else

    Image1.Top := Y + Distance;

  if X >= (Width - Image1.Width) then

    Image1.Left := X - Image1.Width

  else

    Image1.Left := X + Distance;

end;