چطور میشه با کلیک کردن برروی هرجای فرم اونو اینوراونور کشید؟ [بایگانی]

دوشنبه 03 اسفند 1383, 13:27 عصر

در بخش تعاریف Private خود این رو اضافه کن

procedure WmNCHitTest(var Msg:TWMNCHitTest);message WM_NVHITTEST;
حال قبل از End. کد زیر را اضافه کن:

procedure TForm1(use your form name).WmNCHitTest(var msg:TWMNCHitTest);

begin
DefaultHandler(msg);
if msg.result=HTCLIENT then
msg.result:=HTCAPTION;
end;

مرجع این کد کتاب 296 برنامه اجرا شده در دلفی است من خودم امتحان نکردم .

:موفق: