(Resolvido) Como criar um objeto em tempo de execução?

[Chais]

Galera, quais os comandos para se criar um objeto em tempo de execução.

Por exemplo, quero criar um CheckBox em um formulário em tempo de execução.

[Jhonas]

Galera, quais os comandos para se criar um objeto em tempo de execução.

Por exemplo, quero criar um CheckBox em um formulário em tempo de execução.

Não é algo tão trivial ... voce terá que ler um pouco mais sobre o delphi

exemplo: criando um botão e um checkbox em tempo de execução

procedure TForm1.FormClick(Sender: TObject);
var
   Botao : TButton;
   Chekbox : TCheckBox;
begin
   Botao := TButton.Create(form1);
   with Botao do begin
       Visible := true;
       Left := 200;
       Top := 64;
       Width := 75;
       Height := 25;
       Caption := 'Button1';
       TabOrder := 1;
       OnClick := Button1Click;
       Name := 'botao1';
       Parent := Form1;
   end;

   chekbox := TCheckBox.Create(form1);
   with Chekbox do begin
       Visible := true;
       Left := 232;
       Top := 40;
       Width := 97;
       Height := 17;
       Caption := 'CheckBox1';
       TabOrder := 0;
       Name := 'Ckeck1';
       Parent := Form1;
   end;

end;

Veja nestes endereços para saber mais a respeito:

http://www.dpi.ufv.br/downloads/cursoKylix...tilas/ccu02.htm

http://www.protheus.hpg.com.br/delphi.htm

http://www.geocities.com/WallStreet/Exchan...hi/delphi_3.htm

exemplos

http://www.delphibr.com.br/exemplos.php

abraço

[Chais]

obrigado .... pode trancar o tópico.

[Otacílio Ricardo]

Galera, quais os comandos para se criar um objeto em tempo de execução.

Por exemplo, quero criar um CheckBox em um formulário em tempo de execução.

Segue o código.

procedure TForm1.Button1Click(Sender: TObject);

Var

checkbox:TCheckBox;

begin

checkbox:=TCheckBox.Create(Self);

checkbox.Parent:=ListBox2;

checkbox.Name:='Checkbox1';

end;