Hola richy08.
Cita:
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;
Cita:
<--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;
Cita:
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