ورود

View Full Version : سوال: حرکت کردن با کنترل TImage


hasandrw
پنج شنبه 27 مرداد 1390, 15:14 عصر
سلام
من یک کنترل TImage را به فرمم اضافه کرم.حالا می خوام به جای اینکه از تایتل بار فرم برای حرکت دادن فرم استفاده کنم از کنترل TImage استفاده کنم.
یعنی با کلیک و درگ کردن بر روی تصویر فرم را حرکت بدم.
BORHAN TEC
پنج شنبه 27 مرداد 1390, 15:51 عصر
از کد زیر استفاده کن.
procedure TForm3.Image1MouseMove(Sender: TObject; Shift: TShiftState;
X, Y: Integer);
begin
if (ssLeft in Shift) then
begin
ReleaseCapture;
SendMessage(Self.Handle, WM_SYSCOMMAND, SC_MOVE + 1, 0);
end;
end;
عقاب سیاه
یک شنبه 30 مرداد 1390, 23:55 عصر
ReleaseCapture;

درود شرمنده این کد دقیقا چی کار می کنه؟