Como criar um objeto dinâmico?
Gostaria de saber como colocar em um form um botão, checkbox ou qualquer outro objeto em tempo de execução, ou seja como criar um objeto dinâmico?
Se tiver um exemplo fica melhor.
Se tiver um exemplo fica melhor.
Virtual7
Curtidas 0
Respostas
Carlosmielke
15/08/2004
bom,
vc pode fazer da seguinte maneira:
procedure TForm1.Button1Click(Sender: TObject);
var
check:TCheckBox;
begin
check:=TCheckBox.Create(self);
check.parent:=self;
check.Left:=10;
check.Top:=10;
check.Caption:=´Teste´;
end;
para outros componentes funciona da mesma maneira, basta declara outras variáveis.
qualquer outra dúvidsa estamos aí!
Crlos Melke
vc pode fazer da seguinte maneira:
procedure TForm1.Button1Click(Sender: TObject);
var
check:TCheckBox;
begin
check:=TCheckBox.Create(self);
check.parent:=self;
check.Left:=10;
check.Top:=10;
check.Caption:=´Teste´;
end;
para outros componentes funciona da mesma maneira, basta declara outras variáveis.
qualquer outra dúvidsa estamos aí!
Crlos Melke
GOSTEI 0
Rodrigo Costa
15/08/2004
e como faz para programar o evento OnClick deste objeto dinâmico ?????
GOSTEI 0