Перенос иконки приложения из панели задач в трэй. Эмуляция поведения QIP

[WinCoder]

Нет. В приложении одна форма, главная.

[Iron Monk]

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

Нет. В приложении одна форма, главная.

Тогда не понимаю, куда могут компоненты исчезать((( Может взрослые подскажут?...

[WinCoder]

Вот вроде бы добился более менее стабильной работы. Даже Position := poScreenCenter заработал, хотя в предыдущем моём примере при выставлении этого свойства форма ещё и меняла размеры, уезжая к краю экрана.

var
  Form1: TForm1;
   ExitBool: boolean;
   ShowBool: boolean;
implementation

{$R *.dfm}

procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
  CanClose := ExitBool;
  ShowWindow(Handle,SW_HIDE);
end;

procedure TForm1.N1Click(Sender: TObject);
begin
  ExitBool := true;
  Close;
end;

procedure TForm1.TrayIcon1Click(Sender: TObject);
begin
  ShowBool := not ShowBool;
  if ShowBool then
  begin
    Perform(wm_SysCommand, sc_Restore, 0);
    Show;
    ShowWindow(Application.Handle,SW_HIDE);
  end else
    ShowWindow(Handle,SW_HIDE);
end;

Пойдёт, или можно что-то подправить?

[Iron Monk]

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

Пойдёт, или можно что-то подправить?

А виндовуз при запущенной программе нормально завершается?

[WinCoder]

Попробовал перезагрузить, перезагрузилась при запущенном приложении. А что, были какие-то сомнения?

[Iron Monk]

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

Попробовал перезагрузить, перезагрузилась при запущенном приложении. А что, были какие-то сомнения?

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

[WinCoder]

Уже понял мысль. Как ни странно, win это не помешало. Чтож... Если более нет ни каких предложений, вопрос считаю закрытым. Iron Monk благодарю за посильную помощь. В особенности за подсказку с

Application.MainFormOnTaskbar := False;