5,388
社区成员
发帖
与我相关
我的任务
分享
//试试下边的代码-----------------------
//声明
procedure WMSysCommand(var Message: TWMSysCommand); message WM_SYSCOMMAND;
//实现
procedure TForm11.WMSysCommand(var Message: TWMSysCommand);
begin
//窗口非最大化时双击 or 最大化按钮
if (Message.CmdType = 61490) or (Message.CmdType = SC_MAXIMIZE) then exit;
inherited;
end;