principiante22
08-07-2007, 01:52:50
Estoy creando algunos labels y edits y un boton mediante codigo, mi pregunta es, como puedo llamar a un coton que todavia no existe, por ejemplo
procedure form1.Button1Click(Sender: TObject);
var
nombre: Tlabel;
edic: Tedit;
boton:Tbutton;
numero, bla, toc, lef, editlef: integer;
begin
bla:=0;
toc:= 90;
lef:= 16;
editlef:=92;
numero:=strtoint(edit2.Text);
for i:= 1 to numero do
begin
bla:=bla+1;
toc:=toc+26;
nombre:=Tlabel.Create(self);
nombre.Parent := Self;
nombre.Caption := 'Accion #' + inttostr(bla);
nombre.top:=toc;
nombre.left:=lef;
edic:=Tedit.Create(self);
edic.Parent := Self;
edic.text := '';
edic.name:='edica' + inttostr(bla);
edic.top:=toc;
edic.left:=editlef;
como podria poner esos edits y labels invisibles con otro boton???
procedure form1.Button1Click(Sender: TObject);
var
nombre: Tlabel;
edic: Tedit;
boton:Tbutton;
numero, bla, toc, lef, editlef: integer;
begin
bla:=0;
toc:= 90;
lef:= 16;
editlef:=92;
numero:=strtoint(edit2.Text);
for i:= 1 to numero do
begin
bla:=bla+1;
toc:=toc+26;
nombre:=Tlabel.Create(self);
nombre.Parent := Self;
nombre.Caption := 'Accion #' + inttostr(bla);
nombre.top:=toc;
nombre.left:=lef;
edic:=Tedit.Create(self);
edic.Parent := Self;
edic.text := '';
edic.name:='edica' + inttostr(bla);
edic.top:=toc;
edic.left:=editlef;
como podria poner esos edits y labels invisibles con otro boton???