托盘显示隐藏代码
下面是哪错了 红色部分不执行
procedure TFormMian.ActMianExecute(Sender: TObject);
begin
if FormMian.Showing then
begin
Z1.Caption:='显示主界面';
Application.Minimize();
ShowWindow(application.Handle,SW_HIDE);
end
else
begin
Z1.Caption:='隐藏主界面';
ShowWindow(application.Handle,SW_SHOW);
Application.Restore();
end
end;
[解决办法]
jf
