Buen dia, les platico un poco mi duda si yo creo un tedit y lo agrego a un tcomponentlist de esta manera
Código Delphi
[-]
edit:= TEdit.Create(nil);
edit.Name:='Edt'+inttostr(Qry_lineaproductoP.fieldbyname('id').Value);
edit.Left:= leftEdit;
edit.Top:=top;
edit.Width:=57;
edit.Height:=17;
edit.Parent:=PageControl1.Pages[tabshhet];
edit.Tag :=Qry_lineaproductoP.fieldbyname('id').Value;
edit.OnExit:=DoOnExit;
edit.text:=Qry_lineaproductoP.fieldbyname('max').Value;
product.Add(edit);
<--aqui no necesito destruir a edit?? con edit.free;
si despues modifico alguna propiedad de ese edit en el form por medio de la funcion DoOnExit
Código Delphi
[-]
procedure TFrm_POmym1.DoOnExit(Sender: TObject);
begin
if Sender is Tedit then
begin
with Tedit(Sender) do
begin
color:=clSkyBlue;
.
.
.
si recorro el tcomponent list de esta manera, ese cambio a la propiedad text del edit esta ligado en el tcomponentlist??
Código Delphi
[-]
for i := product.Count-1 downto 0 do
begin
showmessage((TEdit(product[i]).text); <--Rsultado debe de ser color clSkyBlue
end;
gracias por anticipado