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

[Aliens_wolfs]

Хамяг Я ошибся не туда SetForegroundWindow вставил. Разницы FormCreate и FormShow в принципи нет за исключением первое происходит один раз при создании. Я так думаю что проблема может быть при создании, окно еще не появилось, а функция уже сработала, поэтому с задержкой через таймер получилось. Событие FormCreate в принципи и FormShow, происходит до появления самого окна, SetForegroundWindow и другие описанные функции работают уже с визуальным окном.

Главное нужно найти нужное место для функции.)))
Пробуй по разному

Может это поможет.

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

или так.

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

У меня во всех функциях получилось

[Shouldercannon]

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

Тормозить работу приложения не будет? Помню уже связывался с событием FormPaint и получил много проблем.

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

Вовсе не пригодится так как у формы стоит свойство bsSingle

[ex.cluz]

Тормозить работу приложения не будет?

Так можно отключать выполнение (if...then с логической переменной), как только первый раз отработает.

[Aliens_wolfs]

Ни где не тормозит.

[Shouldercannon]

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

Ни где не тормозит.

В данном случае нет, но с FormPaint лучше не шутить, так как был случай, когда это событие сильно тормозило в моём проекте.

[Aliens_wolfs]

Если не хотите в FormPaint тогда что мешает в FormResize ее вставить там тоже будет работать, всегда будет на верх выходить если что то с размерами поменяется. Либо один раз эта отработает как уже предлогалось через (if...then с логической переменной)

например

Var
FormLoads: boolean=false;

implementation

{$R *.dfm}

procedure TForm2.FormResize(Sender: TObject);
begin
if not FormLoads then
SetForegroundWindow(Handle);
FormLoads:=true;
end;