Forum: GUI-Design mit VCL / FireMonkey / Common Controls
by Uwe Raabe,
12. Sep 2010
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.
...
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
by Uwe Raabe,
12. Sep 2010
procedure TForm51.Button1Click(Sender: TObject);
var
chk: TCheckBox;
I: Integer;
begin
for I := 0 to Panel1.ControlCount - 1 do begin
if Panel1.Controls is TCheckBox then begin
chk := TCheckBox(Panel1.Controls);
if chk.Checked then begin
TueWasMit(chk.Tag);