hassan1365
سه شنبه 13 اردیبهشت 1384, 13:49 عصر
سلام
کد زیر رو امتحان کردم خوب کار نمیکنه! اگه کد بهتری دارین ممنون میشم.
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;
کد زیر رو امتحان کردم خوب کار نمیکنه! اگه کد بهتری دارین ممنون میشم.
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;