饭没了秀停播:如何拖动没有标题栏的窗体?? Delphi / VCL组件开发及应用

来源:百度文库 编辑:九乡新闻网 时间:2024/04/28 20:12:32
在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;