Форум: "Основная";
Текущий архив: 2005.03.27;
Скачать: [xml.tar.bz2];

Вниз

Динамически создать форму   Найти похожие ветки 

← →
X-Disa   (2005-03-12 15:34) [0]

Здравствуйте. У меня вопрос, как динамически создать форму?
То есть должно быть примерно так:

procedure TFMain.Button1Click(Sender: TObject);
Var BForm:TForm;
begin
<Создать BForm, показать и выполнить какие-то действия >
end;

---

← →
KSergey ©   (2005-03-12 15:37) [1]

http://www.delphikingdom.com/asp/viewitem.asp?catalogid=342

---

← →
kukuikar ©   (2005-03-12 15:38) [2]

procedure TForm1.Button2Click(Sender: TObject);
var
BForm: TForm;
begin
BForm := TForm.Create(self);
BForm.ShowModal;
BForm.Free;
end;

---

← →
kukuikar ©   (2005-03-12 15:40) [3]

BForm.Caption := "BForm";
BForm.Width := 50;
BForm.Height := 50;
...

---

← →
Юрий Зотов ©   (2005-03-12 15:43) [4]

BForm := TBForm.Create(Self); // модуль с TBForm добавить в uses
BForm.Show; // или ShowModal, если нужно.
...

Когда созданная форма станет уже не нужна, позаботьтесь о ее уничтожении (в ней самой - OnClose, или извне)

---

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

Форум: "Основная";
Текущий архив: 2005.03.27;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.45 MB
Время: 0.055 c