Обработка кликов TСooltrayicon

[Shouldercannon]

Как сделать чтобы при первом клике по иконке в трее приложение показало главную форму, а при повторном нажатии скрыло как в QIP?

[Ntlegend]

проверяешь.. если форма видима - то прячешь ее.. если скрыта - то отображаешь.. еще можна добавить такую фитчу.. если форма видима и перекрывается "чужим" приложением - то делаешь ее ативной и поверх всего..

[Terran]

Сообщение от Shouldercannon

Как сделать чтобы при первом клике по иконке в трее приложение показало главную форму, а при повторном нажатии скрыло как в QIP?

Procedure TForm1.CoolTrayIcon1Click(Sender: TObject);
Begin
If Form1.Showing Then
Begin
CoolTrayIcon1.HideMainForm;
End
Else
Begin
CoolTrayIcon1.ShowMainForm;
End;
End;