Gibt es eine Möglichkeit die Events einer Form kurz zu unterbinden?

[Blup]

Auch eine Variante:

Delphi-Quellcode:

procedure SetEditText(AEdit: TEdit; const AValue: string);
var
  Event: TNotifyEvent;
begin
  with Edit do
  begin
    Event := OnChange;
    try
      OnChange := nil;
      Text := AValue;
    finally
      OnChange := Event;
    end;
  end;
end;