procedure Tform1.WMSysCommand(var Message: TWMSysCommand); begin if (Message.CmdType and $FFF0 = SC_MINIMIZE) then Application.Minimize else inherited; end;我用了这样的代码,但点击form1最小化的时候,整个form1都不见了。不知道为什么? 我的程序是这样运行的:运行时候弹出第一个窗体(loginform),在这个窗体加载登陆窗体和主窗体和一些其他的资源,加载完之后,打开登陆窗体,登陆后打开主窗体。
begin
if (Message.CmdType and $FFF0 = SC_MINIMIZE) then
Application.Minimize
else
inherited;
end;我用了这样的代码,但点击form1最小化的时候,整个form1都不见了。不知道为什么?
我的程序是这样运行的:运行时候弹出第一个窗体(loginform),在这个窗体加载登陆窗体和主窗体和一些其他的资源,加载完之后,打开登陆窗体,登陆后打开主窗体。