CheckGrp - ComboBox - Item Problem

**LuCSteR**

Hi,

hab wieder nen Hänger. Kann mir jmd sagen warum der Button1 nicht Enabled wird, wenn ich mind. eine Checkbox.Checked=true habe?
(ComboBox und CheckGrp mit 4 CheckBoxen drinne)

zusammenfalten · markieren

Delphi-Quellcode:

			procedure TForm1.FormCreate(Sender: TObject);

begin

  Form1.Button1.Enabled:=False;

end;

procedure TForm1.ComboBox1DropDown(Sender: TObject);

var

  i:integer;

  hilf:boolean;

begin

  hilf:=false;

  for i:=1 to Form1.CheckGroup1.Items.Count do

    if Form1.CheckGroup1.Checked[i]:=true;

    then hilf:=true;

  if hilf=true

  then Form1.Button1.Enabled:=true;

end;

Dazu wäre noch zu sagen, das ich ähnlich noch eine Abfrage auf Seiten der CheckGrp schreiben will. Also das mind. eine CheckBox.Checked=true und gleichzeitig ein ComboBox.Item<>''. Das bekomm ich nat. selbst hin wenn der Fehler oben gefunden wird.

lg Steve

CheckGrp - ComboBox - Item Problem

CheckGrp - ComboBox - Item Problem

Forumregeln