delphi

← →
фил (2006-04-28 14:42) [0]

помогите чайнику,пожалуйста! Что нужно написать, чтобы при нажатии Button в ТForm1 появлялась TForm2?

← →
jack128 © (2006-04-28 14:46) [1]

if Form2 = nil then Form2 := TForm2.Create(Application); Form2.Show;

← →
Sergey13 © (2006-04-28 14:47) [2]

2фил (28.04.06 14:42)
>Что нужно написать
Программный код. 8-)

← →
balepa © (2006-04-28 14:57) [3]

> Sergey13 © (28.04.06 14:47) [2]
> 2фил (28.04.06 14:42)
> >Что нужно написать
> Программный код. 8-)

+ Откомпилировать и запустить :)

← →
фил (2006-04-28 15:15) [4]

спасибо jack128, дома попробую, может получится

← →
Vetas (2006-04-28 17:32) [5]

Создать 2 формы
установить Visible 2-й формы в false
Написать в обработчике Button: Form2.Visible:=true;

> Что нужно написать, чтобы при нажатии Button в ТForm1 появлялась
> TForm2?

procedure TForm1.ButtonClick(Sender: TObject);
begin
with TForm.Create(Application) do
begin
Caption := "Form2";
ShowModal;
Free;
end;
end;

← →
Владимир (2006-04-29 17:09) [7]

Я обычно назначаю родителем формы главную форму приложения...

if not Assigned(Form2) then Form2:= TForm2.Create(Form1);
Кстати, Борланд рекомендует уничтожать форму не с помощью Free, а с помощью Release.

Form2.Release;

хорошо бы после закрытия и уничтожения формы еще и присвоить nil указателю:

Form2:= nil;

delphi Найти похожие ветки