procedure TForm1.OnNChittest(var msg: TMessage);
var
pt: TPoint;
rect: RECT ;
begin
pt.x:=LOWORD(msg.LParam);
pt.y:=HIWORD(msg.LParam);
SetRect(rect,0,0,Form1.ClientWidth,Form1.ClientHeight);
if PtInRect(rect,pt) then
msg.Result := HTCAPTION
else
inherited;
end;哪里有错啊~~~~
var
pt: TPoint;
rect: RECT ;
begin
pt.x:=LOWORD(msg.LParam);
pt.y:=HIWORD(msg.LParam);
SetRect(rect,0,0,Form1.ClientWidth,Form1.ClientHeight);
if PtInRect(rect,pt) then
msg.Result := HTCAPTION
else
inherited;
end;哪里有错啊~~~~
解决方案 »
- 窗口消息循环,线程消息循环,区别???
- 一个奇怪的问题:TStringList <> nil ,但访问TStringList.Text出现地址错误
- 问一个DrawText的问题!急!
- 如何获得 windowsmediaplayer 播放一首歌曲的时间?
- 谁会作这种报表呀!
- 怎样让动态创建的FASTREPORT的TEXT放在DATABAND中?
- FORM窗体的继承问题
- delphi如何与oracel数据库相连
- 如果同一用户多会话登录,那我怎么让程序窗口在指定的用户会话下显示?
- 在用Paradox数据库时,如何生成 .MB文件?
- 有什么介绍WinSocketApi 和WinApi 的好书?
- 我想知道PE的格式,何为PE?具体有那些用处?
pt:TPoint;
rect:TRect;
^