5,388
社区成员
发帖
与我相关
我的任务
分享
type
TForm1 = class(TForm)
public
procedure WndProc(var m: TMessage); override;
end;
var
Form1: TForm1;
implementation
procedure TForm1.WndProc(var m: TMessage);
begin
if (m.Msg = WM_SYSCOMMAND) then
begin
if (m.WParam <> SC_CLOSE) and // 关闭
(m.WParam <> SC_MAXIMIZE) and // 最大化
(m.WParam <> SC_MINIMIZE) then // 最小化
begin
inherited;
end;
end
else
inherited;
end;