Ich hab hier ein alltägliches Problem ...

[Popov]

... und komme dennoch nicht weiter. Folgendes, ich habe eine ComboBox und ein Editfeld. Die ComboBox ist mit Werten gefüllt. Wenn ich einen der Werte auswähle, soll der Wert in das EditFeld geschrieben werden, wobei der Wert auch in der ComboBox sichtbar bleiben soll. Gebe ich aber einen eigenen Wert in das Editfeld ein, soll die ComboBox den ItemIndex = -1 bekommen.

Das Problem ist nun, daß die ComboBox immer den Wert -1 bekommt, da ja bei einer Änderung an dem Editfeld die ComboBox den Wert -1 bekommen soll. Und jedes Mal wenn bei der Auswahl der ComboBox ein Wert in das Editfeld geschrieben wird, ändert sich auch der Editwert und ändert den ItemIndex der ComboBox.

Eigentlich ist das Problem alltäglich, aber ich hab einfach keine Idee.

1. das Problem hier ist vereinfacht dargestellt, also bitte keine Tipps wie ich das eifache Beispiel anders machen kann
2. ich nutze den OnChange von TEdit und möchte es auch so lassen. Wenn ich etwas in das Feld eintippe, dann beeinflusst es auch andere Werte. Das soll man direkt sehen und nicht erst bei OnExit
3. irgendwie kriege ich das auch gebastelt, aber ich möchte es nicht irgenwie basteln, sonder es richtig machen.

Hier ein einfaches Beispiel das das Problem zeigt:

Delphi-Quellcode:

procedure TForm1.FormCreate(Sender: TObject);
begin
  with ComboBox1, Items do
  begin
    Add('1');
    Add('2');
    Add('3');
    Add('4');
    Add('5');
    Add('6');

    ItemIndex := 0;

    ComboBox1Click(nil);
  end;
end;

procedure TForm1.ComboBox1Click(Sender: TObject);
begin
  with ComboBox1, Items do
    if ItemIndex > -1 then Edit1.Text := Items[ItemIndex];
end;

procedure TForm1.Edit1Change(Sender: TObject);
begin
  with ComboBox1, Items do
    if ItemIndex > -1 then ItemIndex := -1;
end;

[DeddyH]

Definier Dir doch einen Bool'schen Schalter, in dem Du festlegst, ob Du selbst den Wert des Edits änderst oder der Benutzer.

[Luckie]

Also nach drei ein halb Jahren Mitgliedschaft, solltest du eigentlich mitbekommen haben, was ein aussagekräftiger Titel ist und was nicht. Bitte pass entsprechend den Titel deines Threads an.

[iGoA]

Entweder Du schaltest die Ereignisbehandlung für onchange vom Edit vorübergehend aus, während Du den Wert änderst (z.B. mit edit1.onChange := nil; und mit edit1.onChange := edit1change) oder Du nimmst dafür eine boolean-variable die festlegt, ob auf Änderungen gerade reagiert werden darf. Dann müsstest Du in der edit1change prüfen, ob die Variable auf true steht.

[Popov]

@DeddyH

Ja, genau das ist es was ich als es irgendwie hinkriegen bezeichne. Mit einer Hilfsvariable kriege ich es durchaus hin, aber ich möchte nicht global mit einer Variable arbeiten. Zwei Monate später packt man das Programm wieder an und hat es vergessen. Ist nicht gut. Ich weiß auch nicht ob das der beste Weg ist.

@Luckie

Wie würdest du hier ein aussagekräftigen Titel formulieren?

[nahpets]

Hallo,

wie wäre es mit:

Delphi-Quellcode:

procedure TForm1.Edit1Change(Sender: TObject); 
begin 
  with ComboBox1, Items do begin
    itemindex := IndexOf(edit1.text)
end;

Wenn Text in der Combobox enthalten ist, dann wird der entsprechende Index gesetzt, andernfalls liefert IndexOf -1 und Du hast Dein Ergebnis.

[DeddyH]

Buh, wie simpel

[Popov]

Zitat von iGoA:

Entweder Du schaltest die Ereignisbehandlung für onchange vom Edit vorübergehend aus, während Du den Wert änderst (z.B. mit edit1.onChange := nil; und mit edit1.onChange := edit1change) oder Du nimmst dafür eine boolean-variable die festlegt, ob auf Änderungen gerade reagiert werden darf. Dann müsstest Du in der edit1change prüfen, ob die Variable auf true steht.

Danke dir. Eigentlich war das auch meine Idee, die mir schon heute Morgen hatte, aber es funktionierte nicht. Jetzt ist es mir aber aufgefallen, daß ich heute Morgen ein Fehler gemacht habe. Ich hab das falsche Ereignis stillgelegt. Hab es gerade neu versucht und es klappt.

Delphi-Quellcode:

procedure TForm1.ComboBox1Click(Sender: TObject);
var
  Event: TNotifyEvent;
begin
  Event := Edit1.OnChange;
  Edit1.OnChange := nil;

  with ComboBox1, Items do
    if (ItemIndex > -1) then Edit1.Text := Items[ItemIndex];

  Edit1.OnChange := Event;
end;

Blöder Fehler, ich hab heute Morgen OnClick stillgelegt.

[DeddyH]

Da finde ich naphets Vorschlag aber eleganter.

[nahpets]

Zitat von DeddyH:

Buh, wie simpel

Warum einfach, wenn's auch umständlich geht