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

在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;