移动无标题栏窗口

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

 

 

 

 

 

下面是另一种方法

 

 

procedure   TForm1.Image1MouseDown(Sender:   TObject;   Button:   TMouseButton;    
      Shift:   TShiftState;   X,   Y:   Integer);    
  begin    
      ReleaseCapture;    
      SendMessage(Handle,   WM_SYSCOMMAND,   $F012,   0);    
  end;    

你可能感兴趣的:(Integer,button)