| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

delphi

фил ©   (2006-04-28 14:42:00) 

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

---

Владимир   (2006-04-29 17:09:00) [1]

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

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

Form2.Release;

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

Form2:= nil;

---

Loginov Dmitry   (2006-04-28 17:46:00) [2]

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


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

---

Vetas   (2006-04-28 17:32:00) [3]

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

---

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

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

---

balepa   (2006-04-28 14:57:00) [5]

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


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

---

Sergey13   (2006-04-28 14:47:00) [6]

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

---

jack128   (2006-04-28 14:46:00) [7]

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

---

Наверх