Komponenten auf dem Panel durchlaufen???

[romber]

Hallo!

Ich habe auf einem TPanel mehrere CheckBoxen, jedem ist ein Tag > 0 zugewiesen. Nun muss ich Tags von gecheckten Boxen auslesen. Wie kann ich in einer Schleife alle CheckBoxen durchlaufen, ohne dass ich nach und nach den Wert jeder CheckBox auslese???

Danke!

[Hansa]

Wie soll denn das gehen ? Das hier :

Zitat:

Zitat von romber (Beitrag 1049090)

Wie kann ich in einer Schleife alle CheckBoxen durchlaufen, ohne dass ich nach und nach den Wert jeder CheckBox auslese???

:shock: Das wird wohl nur so gehen :

Delphi-Quellcode:

Pseudo-Code :
for i := 0 to ComponentCount do begin
  if CheckBox.IsChecked then
    TueWas;
...
end;

[haentschman]

Hallo...

FindComponent dürfte hier dein Freund sein :hi:

[romber]

Zitat:

Zitat von haentschman (Beitrag 1049094)

FindComponent[/OH][/B] dürfte hier dein Freund sein :hi:

Bei FindComponent muss ich doch auch jede Komponente mit dem namen suchen. Genau so könnte ich doch auch auf jede Komponente einzeln zugereifen und Status abfragen, oder?

[haentschman]

nun ja, mit FindComponent findes du nur die CheckBoxen z.B.
Mit Components hast du alle Komponenten. ComponentCount ist die Summe aller Komponenten. Wenn die Checkboxen durchnummeriert sind kannst du das ganze in einer Schleife ablaufen lassen. Siehe Beispiele: Beispiele ganz unten

[Uwe Raabe]

Delphi-Quellcode:

procedure TForm51.Button1Click(Sender: TObject);
var
  chk: TCheckBox;
  I: Integer;
begin
  for I := 0 to Panel1.ControlCount - 1 do begin
    if Panel1.Controls[I] is TCheckBox then begin
      chk := TCheckBox(Panel1.Controls[I]);
      if chk.Checked then begin
        TueWasMit(chk.Tag);
      end;
    end;
  end;
end;

[haentschman]

... auch ne Variante 8-)

[Hansa]

Glaube, Haentschman hat sich etwas vertan. Mit FindComponent kriegt man ja nur EIN Steuerelement. Je nachdem, was auf dem Panel alles drauf ist, dann nützt das wohl nicht viel ? :shock:

Habe allerdings noch was vergessen :

Delphi-Quellcode:

Pseudo-Code :
for i := 0 to ComponentCount do begin
  if Control IS TCheckBox then   // <--------------------------------
    if CheckBox.IsChecked then
      TueWas;
...
end;

Jetzt lese aber auch mal selber in der Hilfe nach den gelieferten Stichworten. 8-) Mir fällt aber noch gerade auf, dass mein Vorschlag so auch nicht so einfach geht, es sei denn die Checkboxen sind nur auf dem Panel und sonstwo auf der Form sind keine. Ah, roter Kasten. Ja, so wie Uwe Raabe das gemacht hat. So müsste das doch gehen. Dann müsste man aber wohl den Checkboxen explizit sagen, dass das Panel Parent ist ? :gruebel: Es ist immer dasselbe. Bei näherem Hinsehen ist doch alles komplizierter, als anfangs gedacht. :mrgreen:

[Satty67]

Er könnte auch allen CheckBoxen das gleiche Click-Ereignis zuweisen und darin ein TrueFalse-Array pflegen. Listen-Index = Tag

Die Liste kann er dann als property publizieren, falls das ganze in einem Dialog für ein MainForm abläuft.

[Uwe Raabe]

Achtung - quer gedacht: Mann kann auch jeder CheckBox eine Action zuweisen, die alle in derselben ActionList liegen. Dann iteriert man durch die ActionList und das war's.

Hat nebenbei noch den Vorteil, daß man die Checked-Property im OnUpdate-Event aktualisieren kann.

Die Actions können übrigens alle die gleichen Event-Handler haben, da man ja immer noch das Tag zur Unterscheidung hat.

Kommt natürlich alles auf die Anwendung an...