Privacidad: Recuerde que la información escrita en los foros de programación es 100% pública y que su ip será registrada asociada a su mensaje. Si encuentra un mensaje fuera de lugar, por favor, notifiquelo para su revisión y eliminación.
Múltiples Paneles
Enviado por chanchan el día 27 de abril de 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
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.
Foros de debate
Delphi / Kylix / C++ Builder
