procedure TMainForm.WMSysCommand(var Msg: TMessage); begin if Msg.WParam=SC_MINIMIZE then begin Application.Minimize; ShowWindow(Application.Handle, SW_HIDE); SetWindowLong(Application.Handle,GWL_EXSTYLE,WS_EX_TOOLWINDOW); end; inherited; end; 今天刚写的代码,没想到用了两次!
但是点击window状态栏最小化发SC_MINIMIZEApplication.OnMinimize:=Onminimize;我看看Application.Restore,不是事件我不能写代码大家再看看有没有别的方法,谢谢
begin
if Msg.WParam=SC_MINIMIZE then
begin
Application.Minimize;
ShowWindow(Application.Handle, SW_HIDE);
SetWindowLong(Application.Handle,GWL_EXSTYLE,WS_EX_TOOLWINDOW);
end;
inherited;
end;
今天刚写的代码,没想到用了两次!