Компонент CoolTrayIcon

[Vladya]

Обращаюсь ко всем к работал с этим компонентом, подскажите как написать или исправить мой код, что бы при нажатии на иконку в трее программа сворачивалась, а если она уже свернутая то разворачивалась?
Я писал вот так:

procedure TForm1.CoolTrayIcon1Click(Sender: TObject);
begin
 if CoolTrayIcon1.ShowMainForm then
  CoolTrayIcon1.HideMainForm else
  CoolTrayIcon1.ShowMainForm
end;

Но это чепуха какая то.

[S@fer]

Я делал вот так

 
procedure TForm1.CoolTrayIcon1Click(Sender: TObject);
begin
if b=1 then
  begin
    Show;
    b:=0;
  end else
  begin
    Hide;
    b:=1;
  end;
end;

[Vladya]

Что то не работает... ((

[S@fer]

Что именно не работает?
Покажи код как делаешь, и код ошибки (если есть)

[Vladya]

ну я код вставил тот что вы мне написали (только вар добавил), ошибки никакой нет, просто при нажатии форма сворачивается, а разворачиваться не хочет.

[S@fer]

просто при нажатии форма сворачивается, а разворачиваться не хочет

в событии формы OnCreate поставь

b:=1;

[Vladya]

Точно!!! Спасибо все работает!

[Terran]

Можете сделать так:

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