Múltiples Paneles

chanchan
07 de Mayo del 2008
Hola, tengo un programa que en ejecución necesito cambiar el Text de 50 Panel. No es lógico programar
Panel1->Text="caso1";
Panel2->Text="caso2";
Panel3->Text="caso3";
etc.
¿Cómo poría hacer esto mas fácilmente? (Como si fuera un for ..next). Gracias

coso
07 de Mayo del 2008
desde el form donde quieres q se aplique...

var

I: Integer;
Temp: TComponent;
begin
for I := ComponentCount - 1 downto 0 do
begin
Temp := Components[I];
if (Temp is TPanel) then
begin
(Temp as TPanel).Caption := 'caso' + inttostr(I);

(o bien
(Temp as TPanel).Caption := 'caso' + (Temp as TPanel).Name;, extrayendo el numero de este ultimo
)
end;
end;
end;

esta programado de cabeza asi q seguro q tiene bugs, pero la idea se entiende.