CheckGrp - ComboBox - Item Problem

[christian_u]

CheckGroup unter Lazarus 0.9.25 hat gar kein Count.

Delphi-Quellcode:

procedure TForm1.CheckGroup1ItemClick(Sender: TObject; Index: integer);
var
  i:integer;
  hilf:boolean;
begin
  hilf:=false;
  for i:= 0 to CheckGroup1.Items.Count - 1 do
    begin
      if CheckGroup1.Checked[i] then
      begin
        hilf:=true;
        Break;
      end;
    end;

  Button1.Enabled := hilf;
end;

Funktioniert bei mir super.

ups, hab wohl die 2. Seite übersehn