حرکت دادن فرم به کمک کلیک روی قسمت کلاینت فرم! [بایگانی]

MSK

شنبه 04 تیر 1384, 10:12 صبح

من برای اینکه این امکان رو به وجود بیارم از همچین چیزی استفاده می کنم:

type
TForm1 = class(TForm)
protected
procedure WMNCHitTest(var Msg: TWMNCHitTest); message WM_NCHITTEST;
end;

...

procedure TForm1.WMNCHitTest(var Msg: TWMNCHitTest);
begin
inherited;
if Msg.Result = HTCLIENT then
Msg.Result := HTCAPTION;
end;
اگه شما هم راه حل های دیگه ای دارید اینجا در این رابطه بزارید خیلی ممنون میشم!

::نوشتن::