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

[Popov]

Ich hab einen kleinen Fehler gemacht der einen Rattenschwanz nach sich zieht.

Und zwar lade ich beim Start Einstellungen und setzte die Komponenten entsprechend. Einige davon mit OnChange Ereignis. Nur werden dadurch einige Prozeduren ausgelöst die wiederum bereits paar Einstellungen in der Ini überschreiben die noch nicht gesetzt wurden. Der Fehler ist klar und ich werde es schon richten; wird aber etwas dauern. Bis dahin muss ich etwas tricksen.

Gibt es eine Applicationsweite Methode die Events für eine bestimmte Dauer zu unterbinden? Ich weiß wie man es pro Komponente machen kann, ist aber aufwendiger.

[Popov]

Ok, hat sich fürs Erste erledigt. Ich speichere die Werte zuerst temporär und setzte sich über Variable.

Trotz dem würde mich die Frage pben interessieren, nur eben nicht mehr dringend.

[mz23]

Delphi-Quellcode:

private
   myFirstRun : boolean;


procedure TForm1.FormCreate(...
begin
myFirstRun:=True;
...
LoadMyValues;
...
myFirstRun:=False;
end;

procedure TForm1.anyComponentOnChange(...
begin
if myFirstRun then exit;
...
end;

Vielleicht sind die einfachsten Lösungen nicht immer
die Besten und Elegantesten - aber sie funktionieren

Schöne Grüße aus Nürnberg
Manfred

[Perlsau]

Zitat von Popov:

Ich hab einen kleinen Fehler gemacht der einen Rattenschwanz nach sich zieht.

Soll gelegentlich bei den besten Programmierern vorkommen. Ich hab mir angewöhnt, beim Start ein Flag zu setzen (Boolsche Variable StartModus := TRUE) und nachdem alle einmalig auszuführenden Proceduren und Funktionen abgearbeitet sind, das Flag auf FALSE zu setzen. Bei allen entsprechenden Prozeduren, die nur beim Start oder andersherum beim Start nicht ausgeführt werden sollen, heißt es dann gleich zu Beginn:
IF NOT StartModus THEN EXIT;
oder
IF StartModus THEN EXIT;

[Furtbichler]

Zitat von Perlsau:

...heißt es dann gleich zu Beginn:
...oder
IF StartModus THEN EXIT;

Wieso erinnert mich diese Lösung an den unmittelbar vor deinem Beitrag stehen Vorschlag?

Zitat von mz23:

Delphi-Quellcode:

...
procedure TForm1.anyComponentOnChange(...
begin
  if myFirstRun then exit;
...

[Perlsau]

Zitat von Furtbichler:

Wieso erinnert mich diese Lösung an den unmittelbar vor deinem Beitrag stehen Vorschlag?

Na weil's dasselbe ist, nicht wahr? Hab ich nicht gelesen ...

[Popov]

Ja, das mit dem Flag ist auch eine Möglichkeit, da habt ihr Recht. Danke.

[himitsu]

Das Event abhängen wurde schon genannt?


IF StartModus THEN EXIT; ... schaut mal in den ComponentState ... dort wird sich was finden lassen.

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