| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Динамически создать форму [D7, WinXP]
X-Disa © (2005-03-12 15:34:00)Здравствуйте. У меня вопрос, как динамически создать форму?
То есть должно быть примерно так:
procedure TFMain.Button1Click(Sender: TObject);
Var BForm:TForm;
begin
<Создать BForm, показать и выполнить какие-то действия >
end;
Юрий Зотов (2005-03-12 15:43:00) [1]BForm := TBForm.Create(Self); // модуль с TBForm добавить в uses
BForm.Show; // или ShowModal, если нужно.
...
Когда созданная форма станет уже не нужна, позаботьтесь о ее уничтожении (в ней самой - OnClose, или извне)
kukuikar (2005-03-12 15:40:00) [2]BForm.Caption := 'BForm';
BForm.Width := 50;
BForm.Height := 50;
...
kukuikar (2005-03-12 15:38:00) [3]procedure TForm1.Button2Click(Sender: TObject);
var
BForm: TForm;
begin
BForm := TForm.Create(self);
BForm.ShowModal;
BForm.Free;
end;
KSergey (2005-03-12 15:37:00) [4]http://www.delphikingdom.com/asp/viewitem.asp?catalogid=342
| |
