como criar um form em tempo de execucao ?

Delphi

05/03/2004

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


Programadorjlle

Programadorjlle

Curtidas 0

Respostas

Lucas Silva

Lucas Silva

05/03/2004

// para criar
procedure TForm1.btnUmClick(sender: TObject)
begin
     if form1 <> nil then
        form1 := TForm1.Create(nil)
      else
          form1.Show
end;



// liberar ele da memoria..
 // no form close dele...
 form1.Free;



GOSTEI 0
Buosinet

Buosinet

05/03/2004

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.


GOSTEI 0
Alysson

Alysson

05/03/2004

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;


GOSTEI 0
POSTAR