我
我爱PASCAL
Unregistered / Unconfirmed
GUEST, unregistred user!
[
]
]
S
szmh
Unregistered / Unconfirmed
GUEST, unregistred user!
procedure TForm1.ApplicationEvents1Minimize(Sender: TObject);
begin
form1.hide;
end;
begin
form1.hide;
end;
X
xianguo
Unregistered / Unconfirmed
GUEST, unregistred user!
procedure WMSysCommand(var Msg: TWMSysCommand); message WM_SYSCOMMAND;
procedure TForm1.WMSysCommand(var Msg: TWMSysCommand);
begin
if Msg.CmdType = SC_MINIMIZE then
...
inherited;
end;
procedure TForm1.WMSysCommand(var Msg: TWMSysCommand);
begin
if Msg.CmdType = SC_MINIMIZE then
...
inherited;
end;
我
我爱PASCAL
Unregistered / Unconfirmed
GUEST, unregistred user!
xianguo的方法才是完美的解决方案,
szmh,的方法在最小化时可以,
但你调用form1.show,就会问题.
szmh,的方法在最小化时可以,
但你调用form1.show,就会问题.
我
我爱PASCAL
Unregistered / Unconfirmed
GUEST, unregistred user!
[]
]