Einzelnen Beitrag anzeigen

Brainshock

Registriert seit: 26. Nov 2004
Ort: 37345
214 Beiträge
 
Delphi 7 Professional
 
#3

Re: OnChange im TEdit verhindern

  Alt 10. Jun 2008, 11:55
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ß,
Matthias
  Mit Zitat antworten Zitat