CoolTrayIcon1.HideMainForm;无效果
用postMessage(Application.Handle,WM_SYSCOMMAND,SC_MINIMIZE,0);
虽然可以最小化
但是不能恢复显示,一闪就不显示窗体
procedure TFormMain.N8Click(Sender: TObject);
begin
if Application.MainForm.Visible then
CoolTrayIcon1.HideMainForm
else
CoolTrayIcon1.ShowMainForm;
end;
用postMessage(Application.Handle,WM_SYSCOMMAND,SC_MINIMIZE,0);
虽然可以最小化
但是不能恢复显示,一闪就不显示窗体
procedure TFormMain.N8Click(Sender: TObject);
begin
if Application.MainForm.Visible then
CoolTrayIcon1.HideMainForm
else
CoolTrayIcon1.ShowMainForm;
end;
cannot change visible in onshow or onhide
恢复窗体,应该放在CoolTrayIcon1双击事件或弹出菜单中。
我是想在运行时 就自动隐藏 没有加判断语句
FormShow()
begin
CoolTrayIcon1.HideMainForm;
end;提示错误
cannot change visible in onshow or onhide
formshow执行时,form还是不可见的。
可放在creat里.
CoolTrayIcon1.HideMainForm;