Nue eine CheckBox wird gefunden !

[Mavarik]

Danach diese Checkboxen

Delphi-Quellcode:

  var ListederCheckBoxen = TList<TCheckBox>;
begin
  //
  ListederCheckBoxen = TList<TCheckBox>.Create;
  h := 64; i:=0;
  While i <=9 Do Begin
    newCheckBox := TCheckBox.Create(newCheckBox);
    ListederCheckBoxen.Add(NewCheckBox);
    newCheckBox.parent  := newtab;
    newCheckBox.name    := 'NewCheckBox'+inttostr(k)+inttostr(i);
    newCheckBox.caption := 'Neue CheckBox'+inttostr(k)+inttostr(i);
    newCheckBox.width   := 120;
    newCheckBox.left    := 80;
    newCheckBox.top     := h;
    newCheckBox.visible := true;
    h := h +24; i:=i+1;
  end;
  //
end;

jetzt die Abfrage dazu

Delphi-Quellcode:

  i:=0;
  While i<=9 Do
  begin
    If ListederCheckBoxen.Items[I].Checked = true then
      ShowMessage('Ergebnis : True')
    ELSE 
      ShowMessage('Ergebnis : False') ;
    i:=i+1;
  end; 

ListederCheckBoxen.Free; //

Fertig.