Голосование за лучший ответ
Пользователь удален
Знаток
(285)
14 лет назад
procedure TForm1.Button1(Sender: TObject);
Var
Form2:TForm2;
begin
Form2:=TForm2.Create(Self);
Form2.Visible:=True;
Form2.SetFocus;
end;
Только не забудь правильно потом обработку закрытия формы обработать
procedure TForm2.FormClose(Sender: TObject; var Action: TCloseAction);
begin
Action:=caFree;
end;