Проблемы со сворачиванием

[k1r1ch]

Помогите решить две проблемы со сворачиванием окон:
1) Сделал сворачивание в трей. Вот код:

procedure TMainForm.ApplicationEventsMinimize(Sender: TObject);
begin
  MainForm.Hide;
end;

Вот обработчик клика на иконке в трее:

procedure TMainForm.TrayIconClick(Sender: TObject);
begin
  MainForm.Show;
end;

Но после разворачивания окно остается как-бы в свернутом состоянии (то есть надо кликать по заголовку в панели задач). Как сделать нормальное разворачивание и вывод на передний план?
2) Вместе с главной сворачивается форма, которая должна висеть на раб. столе даже при сворачивание в трей. Как сделать это?
Заранее спасибо!

[Stilet]

Нужно WindowState:=wsNormal давать.

[k1r1ch]

Да, теперь работает! Но что насчет второго вопроса?

[Stilet]

Но что насчет второго вопроса?

Никогда не задумывался. Загляни в DelphiWorld мож там по этому поводу чего есть.

[k1r1ch]

Да, спасибо! Нашел там вот это:

private {Это включается в объявления формы.}
  { Private declarations }
  procedure CreateParams(VAR Params: TCreateParams); override;
...

procedure TForm2.CreateParams(VAR Params: TCreateParams);
begin
  Inherited CreateParams(Params);
  Params.WndParent := GetDesktopWindow;
end;

Теперь окно независимо от главной формы!