当form的border style为bsnone时,form页面不可以移动即鼠标禁用。
以下可以解除禁用.
procedure TForm5.FormMouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
ReleaseCapture;
Perform(WM_SYSCOMMAND, $F012, 0);
end;
当form的border style为bsnone时,form页面不可以移动即鼠标禁用。
以下可以解除禁用.
procedure TForm5.FormMouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
ReleaseCapture;
Perform(WM_SYSCOMMAND, $F012, 0);
end;