проблема с показом формы после трея

[za4ot]

как сделать так чтобы после:

procedure TForm1.ApplicationEvents1Minimize(Sender: TObject);
begin
  ShowWindow(handle,SW_HIDE);
  TrayIcon1.Visible:=true;
end;

по нажатию кнопки из popup menu привязанной к ttrayicon форма появлялась на экране, в панели задач и становилась активным окном

самое смешное, что когда обрабатываю событие onClick на трейикон все работает так как надо:

procedure TForm1.TrayIcon1Click(Sender: TObject);
begin
  Application.Restore;
  application.BringToFront;
  TrayIcon1.Visible:=false;
end;

(*)
т.е. форма появляется и становится активным окном

предупреждая вопросы "а пробовал такой же код вписать в обработчик нажатия кнопки в popup menu" - пробовал, не работает (честно не понимаю почему )

пробовал сделать так:

procedure TForm4.NN4Click(Sender: TObject);
begin
  ShowWindow(handle,SW_SHOW);
  TrayIcon1.Visible:=false;
end;

но после данной операции форма появляется только в панели задач

поэтому у меня 2 вопроса:
1) как сделать чтобы она появилась на экране и стала активной?
2) почему код помеченный (*) не работает для кнопки popup menu?

простите, я знаю, что на форуме много инфы по трею и тп, но ответа на данный вопрос я не нашел.

[FaTaL]

У меня вот так вот всё работает:

procedure TForm1.BitBtn1Click(Sender: TObject); // Процедура "сворачивания" в трей
begin
  Form1.Hide;
  TrayIcon1.Visible:=true;
end;

procedure TForm1.N1Click(Sender: TObject); // "Разворачивание по Popup'у в трее
begin
  Form1.Show;
  Application.BringToFront;
  TrayIcon1.Visible:=false;
end;

procedure TForm1.TrayIcon1Click(Sender: TObject); // "Разворачивание по клику по иконке в трее
begin
  N1Click(self);
end;

[za4ot]

FaTaL, делаю как Вы предлагаете форма так же остается в панели задач

п.с. использую codegear rad studio 2007

[Stilet]

Загляни сюда: http://programmersforum.ru/showthrea...estoreMainForm

[za4ot]

Stilet благодарю

если кому интересно, то вот решение проблемы:

  ShowWindow(handle,SW_SHOW);
  Application.ShowMainForm := True;
  ShowWindow(Application.Handle, SW_RESTORE);
  ShowWindow(Application.MainForm.Handle, SW_RESTORE);