Пара вопросов по позиции формы

[Johnson]

Хм... и вот ещё...
FormStyle:=fsStayOnTop либо работает не правильно, либо я его значение не правильно понимаю...
Если на переднем плане находится моя программа, и вторая форма показана, то при переключении на другое приложение на задний план уходят обе формы... я почему-то думал, что вторая должна в любом случае оставаться поверх всех окон... или я не прав?

UPD: ну с этим разобрался, спас код:

procedure TTrayForm.CreateParams;
begin
 inherited;
 Params.WndParent:= VKform.Handle;
end;

но проблема сворачивания всеравно осталась =\

[mihali4]

Чтобы форма "плевала" на всех и всегда была сверху, достаточно в ее обработчике написать:

procedure TForm2.FormShow(Sender: TObject);
begin
SetForegroundWindow(Form2.Handle);
SetWindowPos(Form2.Handle,HWND_TOPMOST,0,0,0,0, SWP_NOMOVE+SWP_NOSIZE) 
end;

[Johnson]

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

Чтобы форма "плевала" на всех и всегда была сверху, достаточно в ее обработчике написать:

procedure TForm2.FormShow(Sender: TObject);
begin
SetForegroundWindow(Form2.Handle);
SetWindowPos(Form2.Handle,HWND_TOPMOST,0,0,0,0, SWP_NOMOVE+SWP_NOSIZE) 
end;

Не получается. И при переходе на другие окна, и при сворачивании основной формы - вторая скрывается на заднем плане.

UPD: При таком вот варианте:

  protected
    procedure CreateParams(var Params:TCreateParams);override;
...
procedure TTrayForm.CreateParams;
begin
 inherited;
 Params.WndParent:= VKform.Handle;
end;

Вторая форма не скрывается на заднем плане при переключениями между окон. Но при сворачивании основной формы - тоже сворачивается... =\


UPD2: А есть ли вариант отлавливать мессагу на сворачивание и не пропускать её? Вторая форма по задумкам должна только либо быть отображена (.Show; ) либо сокрыта (.hide; ), не должна перемещаться и сворачиваться... других условий нет.

Или, был ещё совет, основой сделать некую абстрактную невидимую форму, а первую и вторую - её дочерними... подскажите, как это реализовать?

[mihali4]

Не получается. И при переходе на другие окна, и при сворачивании основной формы - вторая скрывается на заднем плане.

Да, действительно...
Работает только для главной формы.

[Johnson]

Так-с... Одну проблему решил - появилась другая...
Сделал окно формы не дочерним к основному:

procedure TTrayForm.CreateParams;
begin
 inherited;
 Params.WndParent:= 0; //VKform.Handle
end;

Теперь появилась кнопка на таскбаре, которую я не могу сокрыть =\
И ещё при сворачивании основной формы пропадает сама вторая форма, но все контролы, находящиеся на ней - остаются)) пришлось делать форму fsNone, так даже симпатичнее)

Собсно вопрос: как убрать кнопку на таскбаре?

[raxp]

SetWindowLong(Handle, GWL_STYLE, GetWindowLong(Handle, GWL_STYLE) and not WS_CAPTION);

UPD
-------------
а так?

 SetWindowLong(Application.Handle,GWL_EXSTYLE,GetWindowLong(Application.Handle, GWL_EXSTYLE) or
  not WS_EX_APPWINDOW);

[Johnson]

опять же не помогает...

UPD:
если именно в таком виде - ничего не происходит. если указать хендл второй формы - форма вобще не отображается

[mihali4]

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

Теперь появилась кнопка на таскбаре, которую я не могу сокрыть
Собсно вопрос: как убрать кнопку на таскбаре?

Так не пробовали?

procedure TForm2.FormShow(Sender: TObject);
begin
ShowWindow(Form2.Handle, sw_Hide); 
end;

[Johnson]

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

Так не пробовали?

procedure TForm2.FormShow(Sender: TObject);
begin
ShowWindow(Form2.Handle, sw_Hide); 
end;

пробовал конечно... не даёт вобще ни какого эффекта =\
немного позже создам проект без лишних наворотов и скину... будет время - поглядите пожалуйста