|
|
|
|
如何移动没有标题的窗体 |
|
|
|
作者：未知 来源：月光软件站 加入时间：2005-2-28 月光软件站 |
1、如何移动没有标题的窗体
* "欺骗"系统,让他认为点中的是窗体的标题行：在FORM的Private定义中作如下声明：
procedure WMNCHitTest(var M: TWMNCHitTest); message wm_NCHitTest;
函数的实现：
procedure TForm1.WMNCHitTest(var M: TWMNCHitTest);
begin
inherited;
if M.Result = htClient then
M.Result := htCaption;
end;
** 更为简单的方法是这样的：在窗体(或其他可视控件)的onMouseMove事件里添加这样的语句：
if (ssleft in Shift)
then begin
ReleaseCapture;
Perform(WM_syscommand, $F012, 0);
end;
并且这种方法比上一种更灵活许多。
|
|
相关文章：相关软件： |
|
本类阅读TOP10