Panelhöhe abhängig von den Komponenten

[Luckner]

Hallo,
anhand des Beispiels würde ich gerne mein Problem beschreiben:

Delphi-Quellcode:

              for i := 1 to StrToInt(ComboBoxNumerierungAnzahl.Text) do
                begin
                  oEdit := FindComponent('EditNumerierungBis' + IntToStr(i)) as TJvValidateEdit;
                  oEdit.Text := DataModuleArtikel.Artikelreferenz.FieldByName('NUMMERIERUNGBIS' + IntToStr(i)).AsString;
                end;
          end;
      PanelNummerierung.Height := FindComponent('EditNumerierungBis' + IntToStr(i)).?; Hier müsste irgendwas von EditNumerierungBis(i).Top + EditNumerierungBis(i).heigh stehen.

Die Komponenten 'EditNumerierungBis(i)' stehen untereinander. Ich möchte die Panelhöhe, in dem diese Komponenten sich befinden, in Abhängigkeit des (i) berechnen.

Danke, Luckner

[Der schöne Günther]

Die Eigenschaft AutoSize eines TPanels (und Konsorten) kennst du aber, oder? Das wäre doch wirklich einfach.

Ansonsten hindert dich doch niemand in deiner For-Schleife die Gesamthöhe in einer Integer-Variablen aufzuaddieren...

[Luckner]

Hallo Der schöne Günther,

'autosize' ist mir bekannt. Wie solDas jedoch funktionieren, wenn in dem Panel noch weitere Komponenten sind, die jedoch in Abhängigkeit von (i) nicht sichtbar sein sollen und das Panel nur so hoch sein soll, wie die letzte sichtbare Komponente. Das Aufaddieren in der for-Schleife würde funktionieren, wenn man auf jedem Computer die selbe Auflösung hätte. Ist aber so nicht und die Editfelder haben verschiedene Höhen(Pixel) und die Abstände untereinander ebenfalls.

[Uwe Raabe]

Zitat von Luckner:

'autosize' ist mir bekannt. Wie solDas jedoch funktionieren, wenn in dem Panel noch weitere Komponenten sind, die jedoch in Abhängigkeit von (i) nicht sichtbar sein sollen und das Panel nur so hoch sein soll, wie die letzte sichtbare Komponente.

AutoSize berücksichtigt ja auch nur sichtbare Komponenten.

Aber da nach Durchlaufen der Schleife ja das letzte sichtbare Edit eh noch in oEdit steht (man muss nur noch den Sonderfall abfangen, daß gar kein Edit sichtbar ist):

PanelNummerierung.Height := oEdit.Top + oEdit.Height;