Zwei Combobox

[superstar025]

Hallo ich möchte das wenn ich zwei Combobox geändert habe button2.enabled=:true setzen.
wie mach ich das??



mfg matthias

[Wuaegner]

Hallo!
Wenn es bei nur zwei Comboboxen bleibt, könntest du zwei Variablen global deklarieren:
CB1Geändert: boolean; CB2Geändert: boolean;
Dann bei den OnChangeEreignissen der Boxen CB1Geändert bzw. CB2Geändert auf true setzen und dahinter schreiben(Im OnchangeEreignis von ComboBox1): if CB2Geändert= true then Button1.enabled:= true; Vielleicht keine schöne Variante, müsste aber funktionieren!

Gruß Flo

[superstar025]

versteh ich nicht ganz alles was du meinst

kannst du das verfeinert bzw im quelltext deutlich machen?

danke im vorraus
matthias

[idontwantaname]

Hier ein Beispiel. Wenn Checkbox1 geändert wird, dann wird cb1 auf True gesetzt, genau das selbe bei Checkbox2. Noch dazu wird gefragt, ob schon beide geändert wurden.

Delphi-Quellcode:

var
  Form1: TForm1;
  cb1: Boolean = False;
  cb2: Boolean = False;

implementation

{$R *.dfm}

procedure TForm1.CheckBox1Click(Sender: TObject);
begin
   cb1 := True;
   if (cb1) and (cb2) then Button1.Enabled := True;
end;

procedure TForm1.CheckBox2Click(Sender: TObject);
begin
   cb2 := True;
   if (cb1) and (cb2) then Button1.Enabled := True;
end;

[Sharky]

Hai,

und um die IF-Abfrage zu vermeiden kannst Du es auch so schreiben:

Delphi-Quellcode:

var
  Form1: TForm1;
  cb1: Boolean = False;
  cb2: Boolean = False;

implementation

{$R *.dfm}

procedure TForm1.CheckBox1Click(Sender: TObject);
begin
   cb1 := True;
   Button1.Enabled := (cb1) and (cb2);
end;

procedure TForm1.CheckBox2Click(Sender: TObject);
begin
   cb2 := True;
   Button1.Enabled := (cb1) and (cb2);
end;

[Matze]

Wuaegner meint, du sollt 2 Variablen global deklarieren:

Delphi-Quellcode:

var
  Form1: TForm1;
  CB1Geaendert, CB2Gaeändert: boolean;

implementation

im OnCnage der beiden ComboBoxen stellst du sie auf true:

Delphi-Quellcode:

procedure TForm1.ComboBox1Change(Sender: TObject);
begin
  CB1Geaendert := true;
end;

procedure TForm1.ComboBox2Change(Sender: TObject);
begin
  CB2Geaendert := true;
end;

Dann fragst du evtl in den OnChanges npch das ab:

Delphi-Quellcode:

if CB1Geaendert and CB2Geaendert then
  Button1.Enabled := false;

also dann so:

Delphi-Quellcode:

procedure TForm1.ComboBox1Change(Sender: TObject);
begin
  CB1Geaendert := true;
  if CB1Geaendert and CB2Geaendert then
    Button1.Enabled := false;
end;

procedure TForm1.ComboBox2Change(Sender: TObject);
begin
  CB2Geaendert := true;
  if CB1Geaendert and CB2Geaendert then
    Button1.Enabled := false;
end;

Ausfühlicher geht's glaub kaum mehr.


Edit: Mist, ich schreib nie mehr sowas langes

[superstar025]

Danke für die Schnelle und ausführliche Hilfe

[Stevie]

Zitat von Sharky:

Hai,

und um die IF-Abfrage zu vermeiden kannst Du es auch so schreiben:

Delphi-Quellcode:

var
  Form1: TForm1;
  cb1: Boolean = False;
  cb2: Boolean = False;

implementation

{$R *.dfm}

procedure TForm1.CheckBox1Click(Sender: TObject);
begin
   cb1 := True;
   Button1.Enabled := (cb1) and (cb2);
end;

procedure TForm1.CheckBox2Click(Sender: TObject);
begin
   cb2 := True;
   Button1.Enabled := (cb1) and (cb2);
end;

Oder:

Delphi-Quellcode:

procedure TForm1.CheckBox1Click(Sender: TObject);
begin
   cb1 := True;
   Button1.Enabled := cb2;
end;

procedure TForm1.CheckBox2Click(Sender: TObject);
begin
   cb2 := True;
   Button1.Enabled := cb1;
end;

Warum auf Werte überprüfen, die schon bekannt sind???

[Sharky]

Zitat von Stevie:

...Warum auf Werte überprüfen, die schon bekannt sind???

Hai Stevie,
das habe ich gemacht um den Fall zu berücksichtigen das an anderer Stelle eine der Variablen wieder auf False gesetzt wird
Aber im Kontext der Frage hast Du mit deinem Code natürlich recht