referencia de tedit en TComponentList

[ecfisa]

Hola richy08.

si recorro el tcomponent list de esta manera, ese cambio a la propiedad text del edit esta ligado en el tcomponentlist??

Si. En este otro ejemplo, se ponen todos los edits agregados al TComponentList en color rojo:

Código Delphi [-]
...
var
  i: Integer;
begin
  for i := 0 to product.Count-1 do
    TEdit(product.Items[i]).Color := clRed;
end;

<--aqui no necesito destruir a edit?? con edit.free;

Si no pones la propiedad OwnsObjects en False, TComponentList liberará los componentes agregados cuando se destruya la instancia del mismo.

Ejemplo:

Código Delphi [-]
procedure TForm.FormDestroy(Sender: TObject);
begin
  product.Free;
end;

Código Delphi [-]
showmessage((TEdit(product[i]).text);  <--Rsultado debe de ser color clSkyBlue

Eso no va a suceder... El procedimiento ShowMessage recibe como parámetro el texto y no las propiedades del TEdit, por lo tanto no lo mostrará en color clSkyBlue.

Saludos