PDA

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



Valadi
پنج شنبه 11 آبان 1385, 08:44 صبح
چگونه با حرکت موس بر روی فرم image (عکس ) هم با موس حرکت کند ؟ البته image به دنبال موس باشد

vcldeveloper
پنج شنبه 11 آبان 1385, 11:57 صبح
قبل از ایجاد تاپیک جدید در سایت جستجو کنید:
http://barnamenevis.org/forum/showthread.php?t=49351

Valadi
پنج شنبه 11 آبان 1385, 15:09 عصر
آقای کشاورز
چیزی دستگیرم نشد ضمنا من می خواهم یک عکس بزرگ تر سایز شکل های موس باشد به حرکت در آید

soroush_vs
پنج شنبه 11 آبان 1385, 17:15 عصر
باید از رویداد ها و Message ها استفاده کنید.
البته میتونید بایک تایمر ساده تر ربنامه رو انجام بدید.در هر لحظه مکان عکستون رو مکان ماوس ست کنید.

vcldeveloper
جمعه 12 آبان 1385, 10:21 صبح
می تونید از 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;