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

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

Как связать две формы? [D7, XP]

Uno ©   (2007-11-12 13:53:00) 

Если даны две формы, в одной из них имеется Кнопка, как при клике на эту кнопку вызвать вторую форму?

---

KSergey   (2007-11-12 14:13:00) [1]

procedure TForm1.Button1Click(Sender: TObject);
begin
  with TForm2.Create(nil) do
  try
     ShowModal;
  finally
     Free;
  end;
end;

---

Ega23   (2007-11-12 14:12:00) [2]

> Если даны две формы, в одной из них имеется Кнопка, как
> при клике на эту кнопку вызвать вторую форму?

uses Unit2

procedure TForm1.Button1Click(Sender : TObject)
var
 frm : TForm2;
begin
 Application.CreateForm(TForm2, frm);
 try
   frm.ShowModal;
 finally
   frm.Free;
 end;
end;

---

Palladin   (2007-11-12 13:56:00) [3]

Книжки почитать нужно, тогда отпадет масса подобных вопросов.

---

Наверх