Free a un componente dentro de otro

[ecfisa]

y quiero que por ejemplo con un boton se borren esos componentes edits y labels en cierto momento

Hola thelibmx.

Tendrías que hacer:

Código Delphi [-]
procedure TForm1.btClearScrollBoxClick(Sender: TObject);
var
  i: Integer;
begin
  for i:= ScrollBox1.ControlCount-1 downto 0 do
    ScrollBox1.Controls[i].Free;
end;

O también podrías:

Código Delphi [-]
  for i:= SCrollBox1.ControlCount-1 downto 0 do
    ScrollBox1.RemoveControl(ScrollBox1.Controls[i]);

Saludos.

[thelibmx]

Muchas gracias ecfisa, no sabia como hacer para contar y borrar todos los componentes en el scrollbox, de las dos formas me ha funcionado muy bien
escojo la segunda opción creo que es la mas adecuada aunque el resultado es el mismo. Muchas gracias..

Código Delphi [-]
 for i:= SCrollBox1.ControlCount-1 downto 0 do
    ScrollBox1.RemoveControl(ScrollBox1.Controls[i]);

[thelibmx]

solo una pregunta mas como puedo acceder a los datos que contiene un tdbedit que creé en tiempo de ejecucion y mandarlo a un edit en otro form, el tdbedit se encuentra dentro de un scrollbox y lo he llamado folio pero no logro obtener sus datos,esto lo hago antes de borrar todos los componentes, el codigo que puse es este

Código Delphi [-]

procedure TFrmCap.BitBtn1Click(Sender: TObject);
var
folioc:string;
begin

FormAg.editfolio.Text:= TdbEdit(FindComponent('folio')).Text;

end;

me manda un error de Acces violation at adress, me imagino que no lo encuentra, dentro del dbedit que tengo si hay datos y se encuentra conectado a un datasource, incluso puedo ver los datos que contiene, en tiempo de ejecución,y asigne un evento en el cual le doy click y me muestra en nombre del tdbedit que es folio, no se que me falte o tal ves no sea la manera correcta de obtener los datos..puedes darme una pista?

[ecfisa]

Hola thelibmx.

Suponiendo que le hayas dado un nombre en la creación, ejemplo:

Código Delphi [-]
...
implementation

uses Unit2;

var
  DE: TDBEdit;

procedure TForm1.FormCreate(Sender: TObject);
begin
  DE:= TDBEdit.Create(nil);
  DE.Name:= 'MiDBEdit'; // <- nombre
  DE.DataSource:= DataSource1;
  DE.DataField:= 'Name';
  DE.Parent:= SCrollBox1;
end;

Basta con hacer:

Código Delphi [-]
procedure TForm1.BitBtn1Click(Sender: TObject);
begin
  Form2.Edit1.Text:= (ScrollBox1.FindChildControl('MiDBEdit') as TDBEdit).Text;
end;

Saludos.

[thelibmx]

Gracias por responder ecfisa,me funciono bien, ya pude ver los datos con ese codigo