Показать Form2 по верх Form1 и сделать активной

[Shouldercannon]

Стандартно получается такое расположение форм (левый скрин), а надо такое расположение форм (правый скрин). Как такое сделать?

procedure TForm2.FormCreate(Sender: TObject);
begin
  Show;
end;

Формы также должны при переключении между ними прятаться друг за друга как показано на скринах. StayOnTop не предлагать.

[Вадим Мошев]

Попробуйте

Form2.SetFocus

[Shouldercannon]

Даже так не помогает

    SetWindowPos(Handle, HWND_TOPMOST, Left, Top, Width, Height, SWP_NOACTIVATE or SWP_NOMOVE or SWP_NOSIZE);
    Form2.SetFocus;

[Aliens_wolfs]

С FormCreate может не работать

А по идее так должно сработать

procedure TForm2.FormShow(Sender: TObject);
begin
 SetWindowPos(Handle, HWND_TOPMOST, Left, Top, Width, Height, SWP_NOACTIVATE or SWP_NOMOVE or SWP_NOSIZE);
end;

или так тоже

procedure TForm2.FormShow(Sender: TObject);
begin
SetFocus;
end;

Использование

Form2.show;

[evg_m]

Form2.BringToFront;

[Хамяг]

SetForegroundWindow(Form2.Handle);

[Shouldercannon]

В FormCreate и в OnShow не работает Form2.BringToFront; и SetForegroundWindow(Form2.Handle);, и SetFocus;, SetWindowPos(Handle, HWND_TOPMOST, Left, Top, Width, Height, SWP_NOACTIVATE or SWP_NOMOVE or SWP_NOSIZE); работает там и там, но форма по-прежнему не активная.

[Aliens_wolfs]

Попробуйте функцию которую подсказал Хамяг SetForegroundWindow в Form2 использовать так:

procedure TForm2.FormShow(Sender: TObject);
begin
SetForegroundWindow(Handle);
end;

Где то вы неправильно эти функции используете на крайняк в таймер в Form2 вставьте оду из подсказанных функций.

[Хамяг]

Aliens_wolfs, а в чём разница?

кстати, можно попробовать такой изощрённый метод зато работает

var
  Start: TTimer;

procedure TForm2.FormCreate(Sender: TObject);
begin
  if Start = nil then
  begin
    Show;
    Start:=TTimer.Create(Form2);
    Start.Interval:=1;
    Start.OnTimer:=FormCreate;
    Start.Enabled:=True;
  end
  else
  begin
    Start.Free;
    SetForegroundWindow(Handle);
  end;
end;

[Shouldercannon]

Действительно работает