CheckGrp - ComboBox - Item Problem

[Tyrael Y.]

Ich kenne TCheckGroup auch nicht, aber mal ins blaue geraten...

Delphi-Quellcode:

procedure TForm1.ComboBox1DropDown(Sender: TObject);
var
  i:integer;
  hilf:boolean;
begin
  hilf:=false;
  if CheckGroup1.Count < 1 then   //oder  CheckGroup1.ItemCount < 1 ..du musst mal nach den möglichen Eigenschaften gucken, so etwas ähnliches wird es schon geben 
    ShowMessage('Es gibt keine Items')
  else
    for i:= 0 to CheckGroup1.Count - 1 do   
    begin
      if CheckGroup1.Checked[i] then 
      begin
        hilf:=true;
        Break;
      end;
    end;

  Button1.Enabled := hilf;
end;