Скачать: CL | DM;

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;

---

← →
Loginov Dmitry ©   (2006-04-28 17:46) [6]

> Что нужно написать, чтобы при нажатии 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;

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.028 c