como criar um form em tempo de execucao ?

Question

como criar um form em tempo de execucao ?e depois liberar ele da memoria ?...

Lucas Silva · Answer

// para criar[code:1:b920254608]procedure TForm1.btnUmClick(sender: TObject)begin     if form1 <> nil then        form1 := TForm1.Create(nil)      else          form1.Showend;[/code:1:b920254608]// liberar ele da memoria..[code:1:b920254608] // no form close dele... form1.Free; [/code:1:b920254608]...

Buosinet · Answer

Depende do que vc quer fazer. A sua inten��o � inicialmente criar o form, configurar os componentes em design time e cham�-lo do programa, ou voc� quer fazer tudo do zero, desde o form at� os componentes?

Responda que eu te explico.

T� +
Buosi.

Alysson · Answer

tipo... primeira mente, vc tem q declarar umas classes na nas USES
tem q declarar o extctrls (axo q � isso mesmo) , graphics, controls.
primeiramente � isso...

na Procedure

Var
f:TCustomform
l:Tlabel;
m:Tmemo;
begin

f := Tcustomform.create(nil);
f.show // Mostra o form

l := Tlabel.create(nil) // Cria um label
l.caption := �Rox a LOT�;
l.left := 0;
l.top := 5;

f.insertControl(l); // insere o LABEL no form

m := Tmemo.create(nil); // Cria um MEMO
m.lines.text := �TESTE TESTE�;
m.top := 85;
m.left := 15;

f.insertControl(m);
end;

Aki ta um exemplo de como cria um form em modo de execu��o...
Tem v�rias outras maneiras de fazer isso...

um outro exemplo � vc criar um FORM pelo Delphi.. d� um nome pra ele de BeyBrade (ex)

na procedure vc faz isso:

var
b:TbeyBrade;
begin
b := TbeyBrade.create(nil);
b.show;
end;

F�rum como criar um form em tempo de execucao ? #218616