چگونه با حرکت موس بر روی فرم image (عکس ) هم با موس حرکت کند ؟ البته image به دنبال موس باشد
چگونه با حرکت موس بر روی فرم image (عکس ) هم با موس حرکت کند ؟ البته image به دنبال موس باشد
قبل از ایجاد تاپیک جدید در سایت جستجو کنید:
https://barnamenevis.org/showthread.php?t=49351
وَ سَيَعْلَمُ الَّذِينَ ظَلَمُوا [آل محمد حقهم] أَيَّ مُنْقَلَبٍ يَنْقَلِبُونَ - الشعراء (227)
و ظالمین [حق آل محمد (ص) ] به زودی خواهند دانست که به کدام بازگشتگاه بازخواهند گشت.
آقای کشاورز
چیزی دستگیرم نشد ضمنا من می خواهم یک عکس بزرگ تر سایز شکل های موس باشد به حرکت در آید
باید از رویداد ها و Message ها استفاده کنید.
البته میتونید بایک تایمر ساده تر ربنامه رو انجام بدید.در هر لحظه مکان عکستون رو مکان ماوس ست کنید.
می تونید از 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;
وَ سَيَعْلَمُ الَّذِينَ ظَلَمُوا [آل محمد حقهم] أَيَّ مُنْقَلَبٍ يَنْقَلِبُونَ - الشعراء (227)
و ظالمین [حق آل محمد (ص) ] به زودی خواهند دانست که به کدام بازگشتگاه بازخواهند گشت.