درگ کردن فرم مثل winamp

[hassan1365]

سلام

کد زیر رو امتحان کردم خوب کار نمیکنه! اگه کد بهتری دارین ممنون میشم.


procedure wmnchittest(var msg:TWMNCHitTest);message wm_nchittest;

procedure tform1.wmnchittest(var msg:TWMNCHitTest);
begin
DefaultHandler(msg);
if msg.Result =HTCLIENT then
msg.Result :=HTCAPTION;
end;

[Touska]

این لینک را نگاه کن :

http://delphi.about.com/od/formsdialogs/l/aa061300a.htm

و این :

http://www.chami.com/tips/delphi/010397D.html

:flower:

[Touska]

کامپوننتهایی هم برای این کار وجود دارند. :flower:

[DJINN]

اگر منظورت درگ کردن فرم موقعی است که کنترل باکس فرم حذف شده از این تابع API میتونی استفاده کنی


ReleaseCapture();
SendMessage(Frm_Main.Handle, 161, 2,0);


موفق باشی :flower: