StayOnTop

[Nester]

У меня две формы Form1 и Form2
у обоих FormsStyle=fsStayOnTop
если установить фокус на Form1 (active=true)
то обе формы выводятся поверх всех
но если установить фокус на Form2 то поверх всех остаётся только Form1
как это исправить?
мне необходимо чтобы обе формы всегда были поверх всех

[Alex Cones]

Попробуй закинуть это в он крейт каждой формы:
with form1 do
SetWindowPos(Handle, HWND_TOPMOST, Left, Top, Width, Height, SWP_NOACTIVATE or SWP_NOMOVE or SWP_NOSIZE);
Для форм 2 соответственно form2

[Nester]

не спасает эффект тот же
получается эффект родительской и дочерней формы
пока родительская Form1 active то оба окна StayOnTop
если Form1 не активна то родительское Form2 уже не StayOnTop

PS (выражение родительская и дочерняя формы приведено условно)

данная проблема решена в плеере AIMP там есть окно плеера и окно плейлиста и оба StayOnTop перекрывают все окна
я так понял нужно в Z-последовательности установить в самый верх Form1 и Form2 (последовательно) и ниже по списку все остальные формы
но как это сделать?

[s.Creator]

В Application.OnDeactivate переносите фокус на главную форму.
В Application.OnActivate восстанавливайте нужный фокус.
( У меня сработало )

[SERG1980]

Очень даже всё работает:

procedure TForm1.FormCreate(Sender: TObject);
begin
 SetWindowPos(Handle,HWND_TOPMOST,0,0,0,0,SWP_NOMOVE or SWP_NOSIZE);
end;

для второй формы тоже самое

[s.Creator]

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

Очень даже всё работает:

procedure TForm1.FormCreate(Sender: TObject);
begin
 SetWindowPos(Handle,HWND_TOPMOST,0,0,0,0,SWP_NOMOVE or SWP_NOSIZE);
end;

для второй формы тоже самое

Проверил Результат:
Выделил Form2
перешел к другой программе - обе формы сверху
перешел к третьей программе - Form2 скрылась за ней
перешел к тестовой программе (кнопкой в низу) обе формы всплыли, выделенной стала Form1
не трогая формы переключисля на другую программу - Form2 скрылась.

Если же перед всеми действиями выделена Form1 - то все попрежнему нормально.

Кстати посмотрел в Forms.pas
в методе

TCustomForm.CreateWnd;
//...........
    case FormStyle of
//...........
      fsStayOnTop:
        SetWindowPos(Handle, HWND_TOPMOST, 0, 0, 0, 0, SWP_NOMOVE or
          SWP_NOSIZE or SWP_NOACTIVATE);

[Nester]

Вобщем что выяснилось если я кликаю на окно не моего проекта и при этом было активно первое окно моего проекта (Form1) то все окна моего проекта остаются StayOnTop (если у форм это св-во установлено)

если же было активно любое другое окно моего проекта (не Form1) и я кликнул на окно не моего проекта то остаётся StayOnTop только окно Form1 все остальные окна моего проекта уже не StayOnTop


выход нашёл пока только один он кривой но работает

в таймере
if not form2.active then setforegroundwindow(form1.Handle)

если я кликаю по чужому окну и при этом активна Form2 то устанавливаем фокус на form1

пробовал установить этот же код на событие Form2.FormDeactivate
но оно не срабатывает если я кликаю по чужому окну

как выполнить этот код при потере фокуса Form2?

сделал так:

Procedure TForm1.AppDeactivate(Sender: TObject);
  Begin
   //При потере фокуса приложенем установить фокус на Form1
   SetForegroundWindow(Form1.Handle)
 End;

 Procedure TForm1.FormCreate(Sender: TObject);
  Begin
   //Определяем метод для обработки события OnDeactivate
   Application.OnDeactivate :=AppDeactivate;
   //StayOnTop для Form1
   SetWindowPos(Form1.Handle, HWND_TOPMOST, 0, 0, 0, 0, SWP_NOMOVE Or SWP_NOSIZE Or SWP_NOACTIVATE)
 End;

но при выполнении SetForegroundWindow(Form1.Handle)
появляется это

решил проблему

Procedure TForm1.AppDeactivate(Sender: TObject);
  Begin
   //При потере фокуса приложенем установить фокус на Form1
   SetForegroundWindow(Form1.Handle)
 End;

теперь все работает правильно
думаю в aimpe так и сделано увидеть потерю фокуса форм не возможно так как все компоненты не имеют визуального фокуса и пользователь этого не замечает

ой старый код вставил вот новый

Procedure TForm1.AppDeactivate(Sender: TObject);
  Begin
   //При потере фокуса приложенем установить фокус на Form1
   Form1.SetFocus
 End;

Спасибо всем кто толкнул в нужном направлении

[s.Creator]

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

ой старый код вставил вот новый

Procedure TForm1.AppDeactivate(Sender: TObject);
  Begin
   //При потере фокуса приложенем установить фокус на Form1
   Form1.SetFocus
 End;

Извини, даже не подумал что "установить фокус" Ты воспримешь как SetForegroundWindow.

Вторая фраза ( В Application.OnActivate восстанавливайте нужный фокус )
Мне пока неудалась.
Пробовал:

type
  TForm1 = class(TForm)
    procedure FormCreate(Sender: TObject);
    procedure AppDeactivate(Sender: TObject);
    procedure AppActivate(Sender: TObject);
  private
    { Private declarations }
    OldActiveForm: TForm;
  end;
var
  Form1: TForm1;
implementation
uses Unit3;
{$R *.dfm}
procedure TForm1.FormCreate(Sender: TObject);
begin
  OldActiveForm := nil; // на всякий случай
  Application.OnDeactivate := AppDeactivate;
  Application.OnActivate := AppActivate;
end;
procedure TForm1.AppDeactivate(Sender: TObject);
begin
  OldActiveForm := Screen.ActiveForm;
  SetFocus();
end;
procedure TForm1.AppActivate(Sender: TObject);
begin
  if OldActiveForm <> nil then
    OldActiveForm.SetFocus;
end;

Оказалось при обратном переходе все равно фокус на основной форме.

[Nester]

s.Creator ваш способ работает но возвращать активность приложения нужно не по клику на однно из окон проекта (в этом случае игнорируется восстановление ранее активного окна) восстанавливать нужно по Alt-Tab

Вот пример:

[s.Creator]

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

s.Creator ваш способ работает но возвращать активность приложения нужно не по клику на однно из окон проекта (в этом случае игнорируется восстановление ранее активного окна) восстанавливать нужно по Alt-Tab
Вот пример:

Ваш пример от моего не отличается. Только не пойму зачем Вы пишете

Procedure TForm2.FormCreate(Sender: TObject);
  Begin
   //StayOnTop для Form2
   SetWindowPos(Handle, HWND_TOPMOST, 0, 0, 0, 0, SWP_NOMOVE Or SWP_NOSIZE Or SWP_NOACTIVATE)
 End;

Как я уже писал, если у формы выставлено FormStyle = fsStayOnTop
то Delphi выполняет этот код в Forms.pas.
И в обоих примерах восстановление фокуса работает при использовании Alt-Tab, а вот если кнопочками на панеле задач, то не всегда.