CheckGrp - ComboBox - Item Problem

[LuCSteR]

na das muss man erstmal wissen :) vielen dank. funktioniert jetzt auch einwandfrei.

Delphi-Quellcode:

procedure TForm1.ComboBox1Change(Sender: TObject);
var
  i:integer;
  hilf:boolean;

begin
  Button1.Enabled:=false;
  hilf:=false;

  for i:= 0 to CheckGroup1.Items.Count-1 do
    if CheckGroup1.Checked[i]
    then hilf:=true;
      
  if hilf then Button1.Enabled:=true;
end;

Jetzt muss ich mich nur noch um die Checkboxen"steuerung" kümmern :)

[DeddyH]

Geht auch noch etwas kürzer:

Delphi-Quellcode:

procedure TForm1.ComboBox1Change(Sender: TObject);
var
  i:integer;

begin
  for i:= 0 to CheckGroup1.Items.Count-1 do
    begin
      Button1.Enabled := CheckGroup1.Checked[i];
      if Button1.Enabled then break;
    end;
end;

[LuCSteR]

okay, aber das Button1.Enabled:=false als Startwert muss drin bleiben, weil sonst trotzdem der Button geklickt werden könnte wenn:
eine checkbox egwählt wurde, dann wieder abgewählt wird und dann die combobox nochmal angewählt wird... dann ist der startbutton immernoch an :) und das soll ja so nicht sein.

Mal ne andere Frage noch. Ich habe TDE installiert. Nun will er ne Registrierung durchführen. Irgendwas war da doch mit den Pfaden, das man irgend einen Pfad ändern musste oder ne Datei woanders hinpacken muss, damit man die Registrierung nicht machen muss. Hab das gestern irgendwo gelesen, aber finds nicht mehr :(

[DeddyH]

Solche "üblen Tricks" kenne ich jetzt nicht. Registrier Dich doch einfach kostenlos, dann bekommst Du eine Mail, deren Anhang Du in Dein HOME-Verzeichnis speicherst. Das war dann alles.

[LuCSteR]

jop, danke. hat alles geklappt. :)

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