Mail.ruПочтаМой МирОдноклассникиВКонтактеИгрыЗнакомстваНовостиКалендарьОблакоЗаметкиВсе проекты

Delphi! Подскажить, плиз, как, нажимая на кнопку в Form1, оно переходило на Form2? Напишите текст вызова! Спасибо!

Валентин Вакулюк Профи (559), на голосовании 14 лет назад
Голосование за лучший ответ
Crazy Dog Мудрец (16206) 14 лет назад
лучше так:

Form2.Show;
Form2.SetFocus;
Пользователь удален Знаток (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;
Леха Гуру (3242) 14 лет назад
Form2.Show;
тока сначало надо в uses прописать Form2
т. е меню file - use unit
Похожие вопросы