Ich hab hier ein alltägliches Problem ...

[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.