前面定义procedure WMSysCommand(var Msg: TWMSysCommand);message WM_SysCommand;
procedure TfrmFrame.WMSysCommand(var Msg: TWMSysCommand);
begin
case Msg.CmdType of
SC_MINIMIZE: begin
ShowWindow(Handle, SW_MINIMIZE);
(**) Application.Minimize;
//(**) ShowWindow(Application.Handle, SW_HIDE);
(**) ShowWindow(Handle, SW_MINIMIZE);
end;
SC_RESTORE: begin
(**) Application.Restore;
ShowWindow(Handle, SW_RESTORE);
(**) ShowWindow(Application.Handle, SW_HIDE);
end;
else
inherited;
end;
end;
我以在使用了
procedure TfrmFrame.WMSysCommand(var Msg: TWMSysCommand);
begin
case Msg.CmdType of
SC_MINIMIZE: begin
ShowWindow(Handle, SW_MINIMIZE);
(**) Application.Minimize;
//(**) ShowWindow(Application.Handle, SW_HIDE);
(**) ShowWindow(Handle, SW_MINIMIZE);
end;
SC_RESTORE: begin
(**) Application.Restore;
ShowWindow(Handle, SW_RESTORE);
(**) ShowWindow(Application.Handle, SW_HIDE);
end;
else
inherited;
end;
end;
我以在使用了
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货