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)
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