526互联

Delphi 移动窗体

发布时间 2023-06-09 12:05:42作者: 丹心石

移动窗体

  • 使用非标题栏移动窗体(在窗体中增加私有方法,如下)
procedure TForm1.WMNCHitTest(var Msg: TWMNCHitTest);
begin
  DefaultHandler(msg);
  if Msg.Result=HTCLIENT then
     Msg.Result:=HTCAPTION;
end;
  • 方法2
procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
  if(ssLeft in Shift) then
  begin
    ReleaseCapture;
    SendMessage(Self.Handle,WM_SYSCOMMAND,SC_MOVE+1,0);
  end;
end;