Иконка в трее

[саша40]

Привет. Хотел закинуть иконку своей проги в трей. Получилось. Но теперь как сворачивать и разворачивать форму программу(программно!) при нажатие на эту иконку? Использую компонент CoolTrayIcon. + Надо чтобы если программу свернул пользователь нажав на кнопку в системном меню, короче обратно её развернуть? Буду очень благодарен!

[beegl]

розвернуть программу -

procedure TForm1.CoolTrayIcon1Click(Sender: TObject);
begin
CoolTrayIcon1.ShowMainForm;
end;
end.

свернуть программу -

CoolTrayIcon.HideMainform;

[саша40]

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

розвернуть программу -

procedure TForm1.CoolTrayIcon1Click(Sender: TObject);
begin
CoolTrayIcon1.ShowMainForm;
end;
end.

свернуть программу -

CoolTrayIcon.HideMainform;

а если её свернул пользователь нажав на кнопку в системном меню?

[FaTaL]

Например так

procedure TForm1.FormCreate(Sender: TObject);
begin
  Application.OnMinimize := Form1.OnMin;
end;

procedure TForm1.OnMin(Sender: TObject);
begin
  //Здесь твой код сворачивания;
end;

[саша40]

вроде я не так обьяснил. Как можно "засечь" нажатие клавиши свернуть в системном меню формы, есть ли такое событие?

[Sciv]

procedure TForm3.WinProc1(var Msg: TMessage);
begin
  if (Msg.wParam = SC_MINIMIZE) then  begin
    {И тут Ваш код на свертывание в трей}
  end
  else inherited;
end;

типа такого?

[саша40]

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

procedure TForm3.WinProc1(var Msg: TMessage);
begin
  if (Msg.wParam = SC_MINIMIZE) then  begin
    {И тут Ваш код на свертывание в трей}
  end
  else inherited;
end;

типа такого?

попробую. Возможно оно.

[саша40]

ошибка: [Error] Unit1.pas(1311): Incompatible types.
Что-то нето.

[саша40]

вот ещё полный код:

procedure TForm1.WinProc(var Msg: TMessage);
begin
if Msg.WParam=Msg.wParam=SC_MINIMIZE then
begin
CoolTrayIcon1.HideMainForm; //скрываем форму компонентом
index:=true; //присваеваем значение специальной переменой
end
else
inherited;
end;

[саша40]

есть возможная проблема, в том что процедура не используется.