OnChange im TEdit verhindern

[Brainshock]

Hi,

hebe die Zuweisung des/der OnChange Events kurzzeitig auf, damit du diese Endlosschleife verhinderst.
Hier ein Beispiel:

Delphi-Quellcode:

procedure TForm1.Edit1Change(Sender: TObject);
var
  ChangeEvent: TNotifyEvent;
begin
  ChangeEvent:= Edit2.OnChange;
  Edit2.OnChange:= nil;
  try
    // deine Änderungen an Edit1
  finally
    Edit2.OnChange:= ChangeEvent;
  end;
end;

Gruß,