Thema: Delphi Code vereinfachen

Einzelnen Beitrag anzeigen

Benutzerbild von Leuselator
Leuselator

Registriert seit: 18. Mär 2003
Ort: Berlin
589 Beiträge
 
Delphi 8 Architect
 
#2

Re: Code vereinfachen

  Alt 17. Feb 2004, 08:53
Hi Luckie,

Wenn Du (wie ich vermute) die Panels dynamisch erstellst, dan pack Sie in eine TList.
Anschließend kannst Du:
Delphi-Quellcode:
var i : Integer;
begin
  for i := 0 to PanelListe.Count-1 do TPanel(PanelListe).Visible := False;
  TPanel(PanelListe[DropDown.ItemIndex]).Visible := True;
end;
Wenn Du die nicht dynamisch erstellst, bliebe Dir noch eine Liste (oder Array), in dem Du die Component.Name's speicherst, dann kannst Du ähnlich herangehen.
Gruß
Tim Leuschner
Programmierer = moderner Sysiphos: stets wenn er meint, den Stein seiner Dummheit auf den Berg des Wissens gewuchtet zu haben, erblickt er einen völlig neuen Aspekt und der Dummfels poltert mit Getöse zurück ins Tal der Unwissenheit...
  Mit Zitat antworten Zitat