درگ کردن فرم مثل 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: