ورود

View Full Version : جا به جا کردن (Move) فرم با کلیک بر روی فرم


اصغر (پآچ)
سه شنبه 14 اسفند 1386, 17:57 عصر
من میخوام با کلیک و درگ کردن روی فرم بتونم جای فرم رو روی صفحه نمایش تغییر بدم یه چیزی مثل جت آدیو کسی میتونه کمکم کنه؟
babak_delphi
سه شنبه 14 اسفند 1386, 20:04 عصر
در بخش تعاریف Private فرم خود این کد رو اضافه کن:

procedure WmNCHinTest(var Msg: TWMNCHitTest); message WM_NCHITTEST;
حالا قبل از .end کد زیر رو اضافه کن :

procedure TForm1.WmNCHitTest(var Msg: TWMNCHitTest);
begin
DefaultHandler(msg);
if Msg.Result = HTCLIENT then
msg.result := HTCAPTION;
end;
dkhatibi
سه شنبه 14 اسفند 1386, 20:10 عصر
این (http://www.delphi3000.com/articles/article_2251.asp?SK=) هم جالبه!
technic
سه شنبه 14 اسفند 1386, 22:37 عصر
در رویداد OnMouseup فرم خود یا هر شی که خواستی کد زیر را قرار بده

ReleaseCapture;
PerForm(Wm_Syscommand,$f012,0);