Einzelnen Beitrag anzeigen

Luckner

Registriert seit: 28. Nov 2006
Ort: Berlin
418 Beiträge
 
Delphi 7 Enterprise
 
#1

Panelreheinfolge einhalten.

  Alt 3. Aug 2016, 14:17
Hallo,

habe in einer Form mehrere Panels untereinander. In jedem dieser Panels sind verschiedene Datensätze. Je nach dem ob in diesen Panels Datensätze vorhanden sind oder nicht, sind diese sichtbar oder nicht. Wenn Datensätze in einem Panel vorhanden sind, dann wird entsprechendes Button markiert(Farbänderung) und Panel ist sichtbar. Das funktioniert auch gut, aber die Reiehnfolge wird nicht immer eingehalten. Hier das Besp:
Delphi-Quellcode:
procedure TFrameArtikel.Panellinksreihenfolge;
begin
 If (ButtonHaftEtikett.Color = clLime) then
     begin
       PanelArtikel.Align := alTop;
       PanelArtikel.Visible := True;
     end
 else
     begin
       PanelArtikel.Visible := false;
     end;

 If ButtonDienstleistung.Color = clLime Then
    begin
      PanelDienstleistung.Align := alTop;
      PanelDienstleistung.Visible := True;
    end
 else
    begin
      PanelDienstleistung.Visible := false;
    end;

 If ButtonNummerierung.Color = clLime Then
    begin
      PanelNummerierung.Align := alTop;
      PanelNummerierung.Visible := True;
    end
 else
    begin
      PanelNummerierung.Visible := false;
    end;

usw.
Wie kann ich die Panelreihenfolge besser platzieren. Es sind ca. 20 Stck.

Danke, Luckner
  Mit Zitat antworten Zitat