crear y borrar edits en ejecucion

[rgstuamigo]

Empezado por andresorozco86

Buenas Tardes:

Estoy trabajando con delphi y no se como es el manejo de crear y borrar por ejemplo edits pero en tiempo de ejecucion. Osea por ejemplo que yo tengo un boton donde le doy click y me cree 2 edit y luego en otro boton le doy click y me los borra. Alguien me podria ayudar?

Bueno podrías declarar dos variables(pueden ser globales) de tipo TEdit de esta forma:

Código Delphi [-]
...
var
  Form1: TForm1;
 e1,e2:TEdit;//<--aqui declaro dos variables globales de tipo TEdit
implementation
....

Ahora en tu boton que deseas crear pones ésto:

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
begin
 if not Assigned(e1) and not Assigned(e2) then //si no han sido creados anteriormente
  begin
    e1:=TEdit.Create(Application);//creo el edit 1
    e1.Parent:=Form1;// le asigno un parent al edit 1
    e1.Top:=100;//le digo a  que distacia de la parte superior del form se debe ubicar
    e1.Left:=100;//le digo a que distacia de la parte izquierda del form se debe ubicar

    e2:=TEdit.Create(Application); /// Idem a lo anterior pero para el edit 2
    e2.Parent:=Form1;
    e2.Top:=100;
    e2.Left:=200;
  end;
end;

Y en el boton de eliminar pues sencillamente lo destruimos de ésta manera:

Código Delphi [-]
procedure TForm1.Button2Click(Sender: TObject);
begin
 FreeAndNil(e1);//destruyo el edit 1
 FreeAndNil(e2);//destruyo el edit 2
end;

Saludos...