Как создать новую форму, которая бы не отбирала фокус у существующей

{codecitation class=»brush: pascal; gutter: false;» width=»600px»}

Автор: Олег Кулабухов

uses Unit2;

procedure TForm1.Button1Click(Sender: TObject);

begin

Form2 := TForm2.Create(Application);

Form2.Visible := FALSE;

ShowWindow(Form2.Handle, SW_SHOWNA);

end;

{/codecitation}

Добавить комментарий