Hola a tod@s, de nuevo por estos barrios
He definido una función que activa/desactiva las etiquetas (TLabel) contenidas en un TPanel, bien una sola o bien todas.
El código es el siguiente:
Código Delphi
[-]
procedure TForm1.ActivarEtiquetas( Sender:TObject; Estado:boolean; Todas:boolean = true );
var
Contenedor : TPanel;
Etiqueta : TLabel;
i : integer;
begin
if Todas then begin
Contenedor := (Sender as TPanel);
for i:=0 to Contenedor.ControlCount-1 do
if( Contenedor.Controls[i] is TLabel ) then begin
Etiqueta := ( Contenedor.Controls[i] as TLabel ) ;
Etiqueta.Enabled := Estado;
end;
end else (Sender as TLabel).Enabled := Estado;
end;
Bien, el código funciona pero .... (siempre hay un pero), una etiqueta de otro panel se desactiva tambien
¿donde meto la pata?
![Mad](http://www.clubdelphi.com/foros/images/smilies/mad.gif)
He leido por aquí que hay otra propiedad para buscar los elementos contenidos en otro, pero ahora soy incapaz de volver a hacelo.
![Mad](http://www.clubdelphi.com/foros/images/smilies/mad.gif)
![Mad](http://www.clubdelphi.com/foros/images/smilies/mad.gif)
Agradecido
Salvador (salvica)