我有下面的程序:
procedure wmnchittest(var msg:twmnchittest); message wm_nchittest;
在程序部分加入以下代码:
procedure TForm1.wmnchittest(var msg:twmnchittest);
begin
inherited;
if (htclient=msg.result) then
msg.result:=htcaption;
end;
我在窗体的任何地方拖东时都可以拖东窗体,
但是有个问题,在窗体上有一个按钮,我不需要在按钮上拖东时也拖东窗体,因为按钮有其他功能。不知怎么解决?
procedure wmnchittest(var msg:twmnchittest); message wm_nchittest;
在程序部分加入以下代码:
procedure TForm1.wmnchittest(var msg:twmnchittest);
begin
inherited;
if (htclient=msg.result) then
msg.result:=htcaption;
end;
我在窗体的任何地方拖东时都可以拖东窗体,
但是有个问题,在窗体上有一个按钮,我不需要在按钮上拖东时也拖东窗体,因为按钮有其他功能。不知怎么解决?
解决方案 »
- 还是程序员厉害:7·23事故,软件逻辑错误是主要原因。
- 怎么使用VirtualStringTree
- 在线等待:如何得知用户使用的操作系统是何种操作系统?
- 讲个男友小时候的故事,嘿嘿…………很想他了~~~~~~
- 菜鸟关于在TQuery中添加插入功能的SQL语句的问题.
- 如何在richEdit中将光标定位在某行的某列下?急!
- 在使用DBLookupListBox时,怎么编程让它选中第一条记录?
- 关于多线程的问题,我想定期激活一个线程,
- 能够解决形如y=a0+a1*x1+a2*x2+a3*x3的回归算法
- WinSock 错误代码'10053'与'10054'是什么意思?
- 考试系统的发卷,刷新
- 我在csdn上发表了一些贴子,想找它们离线保存下来,csdn有没有提一些下贴子的工具啊?
你代码中TForm1.wmnchittest(var msg:twmnchittest); 只截取form的鼠标拖动事件,不会对你的按钮有什么影响的。
你试试就知道了
Shift: TShiftState; X, Y: Integer);
begin
ReleaseCapture;
SendMessage(Handle, WM_SYSCOMMAND, $F012, 0);
end;
TSpeedButton是从TControl->TGraphicControl继承来的,没经过TWinControl。