Ereigniss zeitweise deaktivieren

[DL3AD]

Hallo,

ich habe eine Ereignissprocedure wie z.B. diese

Code: Alles auswählen

procedure TForm1.FloatSpinEdit1Change(Sender: TObject);
begin
  machwas;
end;          

Nun möchte das Value des FloatSpinEdit1 ändern ohne das Ereigniss Change zu feuern.
Wie kann ich dass Ereigniss zeitweise deaktivieren ?

Gruß Frank

[baumina]

Du könntest es folgendermaßen machen:

Code: Alles auswählen

FloatSpinEdit1.OnChange := Nil; // deaktivieren
FloatSpinEdit1.OnChange := FloatSpinEdit1Change; // aktivieren

[DL3AD]

... dass Abschalten funktioniert aber bei

Code: Alles auswählen

FloatSpinEdit1.OnChange := FloatSpinEdit1Change; // aktivieren

sagt er "Wrong numer of parameters specified for call to FloatSpinEdit1Change"

[baumina]

Auf Nil setzen heißt, ab jetzt springt er nicht mehr in die Routine wenn das Ereignis OnChange kommt. Wieder zuweisen heißt von diesem Zeitpunkt ab, springt er beim Ereignis OnChange wieder in die Routine. Das aktivieren bzw. deaktivieren darf natürlich nicht innerhalb der OnChange-Routine stattfinden.

[Michl]

mode Delphi:

Code: Alles auswählen

{$mode delphi} 
...
FloatSpinEdit1.OnChange := Nil; // deaktivieren
FloatSpinEdit1.OnChange := FloatSpinEdit1Change; // aktivieren
 

mode Objektpascal:

Code: Alles auswählen

{$mode objfpc}{$H+} 
...
FloatSpinEdit1.OnChange := Nil; // deaktivieren
FloatSpinEdit1.OnChange := @FloatSpinEdit1Change; // aktivieren
 

Bitte das "@" beachten!

[DL3AD]

... Danke dass @ war es

[Flenser]

Gibt es eine Möglichkeit, das Auslösen von Ereignissen für alle Komponenten zu unterbinden, ohne dass man für jede Komponente die festgelegte Ereignisprozedur zurück- und neusetzen muss?

[Warf]

Gibt es eine Möglichkeit, das Auslösen von Ereignissen für alle Komponenten zu unterbinden, ohne dass man für jede Komponente die festgelegte Ereignisprozedur zurück- und neusetzen muss?

Ja, du iterierst über jede Komponente, über jede Property (RTTI). Wenn die Property mit On... anfängt, speicherst du den Inhalt in einer Map und setzt es auf nil.
Zum reaktivieren einfach wieder drüber iterieren und den originalwert wieder herstellen.

Aber, hast du mal .enabled versucht? ich glaub es können keine events gefeurt werden während enabled auf false steht