由于要实现关闭窗口最小化到系统托盘,在FormCloseQuery中加入CanClose = false,导致无法正常关机,要想正常关机增加下面代码
procedure EndMsg(var nMsg: TWMQueryEndSession); Message WM_QUERYENDSESSION;
procedure TF_Main.EndMsg(var nMsg: TWMQueryEndSession);
begin
nMsg.Result := 1;
end;
由于要实现关闭窗口最小化到系统托盘,在FormCloseQuery中加入CanClose = false,导致无法正常关机,要想正常关机增加下面代码
procedure EndMsg(var nMsg: TWMQueryEndSession); Message WM_QUERYENDSESSION;
procedure TF_Main.EndMsg(var nMsg: TWMQueryEndSession);
begin
nMsg.Result := 1;
end;