procedure FormMouseMove(Sender: TObject; Shift: TShiftState;
X, Y: Integer);
begin
if (ssleft in Shift) then
begin
releasecapture;
perform(wm_syscommand, $F012, 0);
end;
end;
FormBorderStyle为None时拖动窗体
最新推荐文章于 2020-12-01 16:44:12 发布