Code:
procedure TForm2.Button1Click(Sender: TObject);
begin
Case [color=#ff0000](Sender as TCheckBox).Tag[/color] of
In deinem Demo sind die
Tag's leer. Die sollten im
OI oder im Code gesetzt werden sonnst funktioniert das Demo nicht.
Ein B. um die Tag's zur Laufzeit zu setzen:
Delphi-Quellcode:
procedure TFormX.FormCreate(Sender: TObject);
var i: Integer;
begin
for i := 0 to 7 do
(FindComponent(format('CheckBox%d', [i+1])) As TCheckBox).Tag := i;
// (FindComponent(format('CheckBox%d', [i+1])) As TCheckBox).Tag := i;
// kann man auch anders schreiben:
// TCheckBox(FindComponent(format('CheckBox%d', [i+1]))).Tag := i;
end;