Динамически создать форму

← →
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;
...

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

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

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