Stay On Top второстепенной формы

[Thrust]

Доброго времени суток.

Пишу программку, состоящую из нескольких форм. Одна из них (Form3) выполняет роль плавающего окошка в углу экрана. В свою очередь, главное окно сворачивается в трей по желанию пользователя.

Ставил для Form3 значение formstyle:=fsStayOnTop, но это не помогло. После экспериментов выяснил, что это работает только для главной формы.

Есть у кого идеи?

[igh0st]

Сделай "главное" окно не главным, а "главное" - не показывай вообще.

[Thrust]

Это не вариант.

С этим разобрался, сделал через
Form3 := TForm3.CreateParented(GetDesktopWin dow);

Однако теперь эта форма имеет свою кнопку на панели задач, а убрать ее с помощью
ShowWindow(form3.Handle, sw_Hide);
нельзя, так как исчезает и сама форма

[psycho-coder]

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

Это не вариант.

С этим разобрался, сделал через
Form3 := TForm3.CreateParented(GetDesktopWin dow);

Однако теперь эта форма имеет свою кнопку на панели задач, а убрать ее с помощью
ShowWindow(form3.Handle, sw_Hide);
нельзя, так как исчезает и сама форма

Я в WinAPI не силен, но по-моему ShowWindow как раз задает видимость формы, а не кнопки на панели задач.

Может нужно ее отобразить прямо в видео буфер? Как сделать не знаю.

[psycho-coder]

Или напиши форму полностью на WinAPI

[spamer]

Вот держи.
Открыть форму:

PHP код:

procedure TForm1.Button1Click(Sender: TObject);
begin
  Form2 := TForm2.Create(self);
  Application.NormalizeTopMosts;
  Form2.FormStyle := fsStayOnTop;
  Form2.Show;
end; 


Закрыть форму:

PHP код:

procedure TForm2.Button1Click(Sender: TObject);
begin
  Form2.Close;
  Application.RestoreTopMosts;
end;