TCategoryPanel.ControlCount immer = 1

[Nils S.]

Guten Abend zusammen,

ich bin etwas verwirrt...
Wenn ich in einem TCategoryPanel (nicht TCategoryPanelGroup) ein ControlCount durchführe, bekomme ich immer 1 zurück.
Packe ich aber die gleichen Komponenten (Labels, Comboboxen, Buttons und RadioButtons) beispielsweise in ein TPanel, bekomme ich die richtige Anzahl zurück.

Kann mir jemand sagen, warum das so ist?
Muss man beim TCategoryPanel noch irgendwas beachten?

Würde mich über Rückmeldungen freuen.

Danke.

MfG

Nils

[Delbor]

Hi Nils S

Ich habe dieses Controlcount bisher nie gebraucht, da auf meinen Categorypanels jeweils eine Frameinstanz liegt - ausser auf einem, das zusätzlich ein Panel enthält. Eine probeweise Abfrage ergab jedoch auch bei mir 1. Scheint ein Fehler zu sein.
Ich arbeite mit DelphiXE4.

Gruss
Delbor

[Nils S.]

Hi Delbor,

danke erst Mal, für die Antwort.
Habe mir schon fast gedacht, dass es sich um 'nen Bug handelt.
Also tatsächlich immer noch ein TPanel da rein setzen...

[himitsu]

Erstmal wäre es eine gute Idee gewesen, wenn du einfach mal nachsiehst, was das für ein Control ist (ClassName),
dann wäre dir sofort aufgefallen, daß es ganz richtig so ist.

Also entweder (CategoryPanel1.Controls[0] as TCategoryPanelSurface).ControlCount oder du benutzt die offizielle API, also CategoryPanel1.GetChildren .
TWinControl.GetChildren

[Nils S.]

So, ich habe endlich mal wieder Zeit gefunden, mich mit Deplhi zu beschäftigen.
Auch Dir erstmal dankte, himitsu.

Bei dem Tipp mit dem Klassennamen bin ich etwas verwirrt.
Der ist doch TCategoryPanel oder nicht?
Und inwiefern hilft mir das dann weiter um zu wissen, dass ich mit ControlCount nicht die Anzahl der Controls auf dem Panel ermitteln kann?

Ich habe die verschiedenen Varianten mal ausprobiert.
Ich möchte mit dem ermittelten Wert eine for Schleife ausführen, um bestimmte Komponenten (TComboBox) zu leeren.

Wenn ich die offizielle API verwende, will Delphi von mir noch zwei Parameter haben, wovon der zweite wohl nicht relevant ist und der erste, der sich Proc nennt, ist wohl eine Callback Funktion.
Ich habe mal etwas gegoogelt und dabei herausgefunden, dass es sich bei einer Callback Fuktion um eine Funktion handelt, die ich selbst definieren kann und ausgeführt wird und einen Wert zurückliefert.
Aber wofür brauche ich das? Ich möchte ja nur die Anzahl der Komponenten damit ermitteln und das Ergebnis in der for Schleife verwenden.

Mit der anderen Variante funktioniert das Ermitteln der Komponenten super.
Allerdings kann ich in der for Schleife auch nicht TCategoryPanel1.Controls[i] verwenden, da es immer zu dem Fehler "Listenindex überschreitet das Maximum(1)' kommt.
Wahrscheinlich aus dem selben Grund, weshalb man ControlCount nicht verwenden kann (was ich ja bislang, wie in der ersten Frage dieses Posts beschrieben, noch nicht verstanden habe).

Hier mal der Code:

Delphi-Quellcode:

procedure TGeneralCtrl.ResetFilter(Cpl: TCategoryPanel);
var
  i, cplComponents :integer;
begin  
  //Anzahl Komponenten ermitteln - 1.
  CplComponents := (Cpl.Controls[0] as TCategoryPanelSurface).ControlCount - 1; //<--Funktioniert.
  //ComboBoxen zurücksetzen.
  for i := 0 to cplComponents do
  begin
    if Cpl.Controls[i] is TComboBox then                                        //<--Fehler bei zweitem Durchlauf.
    begin
      (Cpl.Controls[i] as TComboBox).Text := '';
    end;
  end;
end;

Würde mich freuen, wenn ich noch ein paar Erklärungen bekomme.

[Uwe Raabe]

Das TCategoryPanel hat nur ein einziges Child-Control vom Typ TCategoryPanelSurface. In diesem stecken dann die einzelnen Conrols, die du sehen kannst. Du musst also nicht über die Controls von TCategoryPanel iterieren, sonden über die des TCategoryPanelSurface, was du über Cpl.Controls[0] erreichts. Die Typumwandlung mittels as ist wohl nicht mal nötig.