如何拖动没有标题栏的窗体?? Delphi / VCL组件开发及应用

来源:百度文库 编辑:神马文学网 时间:2024/05/24 04:05:55
在Form1的“Private”部分声明过程:
在private部分加入下列代码:
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;