procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
ReleaseCapture;//释放原先的
SendMessage(self.Handle, WM_NCLBUTTONDOWN, HTCAPTION, 0);//点中标题栏的效果
end;
Shift: TShiftState; X, Y: Integer);
begin
ReleaseCapture;//释放原先的
SendMessage(self.Handle, WM_NCLBUTTONDOWN, HTCAPTION, 0);//点中标题栏的效果
end;