Hi Luckie,
so auf die Stelle, untested und unueberlegt...
Delphi-Quellcode:
var
i: integer;
begin
for i:=0 to frmMain.ComponentsCout-1 do begin
if frmMain.Components[i] is TPanel then
if (frmMain.Components[i] as TPanel).Tag = cbAuswahl.ItemIndex+1 then
(frmMain.Components[i] as TPanel).Visibe := true;
end;
end;
Hope that helps,
Chris
[edit]+1 deshalb, weil du sonst die ganzen 0en mit drinhast und das waere ja nicht so toll... [/edit]