Einer Komponente ein Event neu zuordnen.

opfer.der.genauigkeit · Beiträge: 754 Erhaltene Danke: 1

Hi,

Klingt komisch.. ist aber so.

Also.. mein Problem:

Ich habe eine Komponente => TEdit.
Die Komponente hat ein Event => OnChange.

Jeder kennt das, doppelklick im Objektinspektor auf das Event und im Code
erscheint eine neue hübsche Zeile.

markieren

Delphi-Quelltext

1:
2:
3:
4:

procedure Form.EditOnChange(Sender: TObject);
begin
  viel code;
end;

Alles toll..

Jetzt hab ich das Problem, daß ich unter bestimmten Umständen trotz Änderung im Editfeld,
dieses Event nicht auslösen möchte.

markieren

Delphi-Quelltext

1:
2:
3:

..
  Edit.OnChange := nil;
..

Danach funktioniert das Event auch wirklich nicht mehr..
Nur.. wie kann ich jetzt wieder dem Event den richtigen Aufruf zuordnen bzw.
kennt jemand ne Möglichkeit, wie ich Events oder nur ein Event von Komponenten
kurzfristig deaktivieren und dann wieder aktivieren kann?

Das Problem ist nämlich, daß ich ich bei einem Zuweisungsversuch
keinen Erfolg habe (Variationen schon durchprobiert

)

markieren

Delphi-Quelltext

1:
2:
3:

..
  EditOnChange := Edit.OnChange;  // Kann auch garnicht funktionieren.. TNotify bla..
..

Vielleicht hat ja jemand ne Idee??
Moderiert von Peter Lustig: Code- durch Delphi-Tags ersetzt.
Moderiert von Klabautermann: Topic aus Programmierwerkzeuge verschoben am Do 22.07.2004 um 12:01

_________________
Stellen Sie sich bitte Zirkusmusik vor.

Christian S. · Beiträge: 20451 Erhaltene Danke: 2264 Win 10 C# (VS 2019)

Hallo!

Du kannst es so machen:

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:

var temp : TNotifyEvent;
begin
  temp := edit1.OnChange;
  edit1.OnChange := nil;
  //mache was
  edit1.OnChange := temp;
end;

MfG
Peter

P.S.: So lange dabei und kennt die Delphi-Tags nicht. ;-)

_________________
Zwei Worte werden Dir im Leben viele Türen öffnen - "ziehen" und "drücken".

opfer.der.genauigkeit · Beiträge: 754 Erhaltene Danke: 1

Delphi- Tags? öhmm öh.. äh.. was du meinen (wie immer auf'm Schlauch steht)

Schöne Lösung, hab mal wieder umständlich gedacht.

Danke, funktioniert

_________________
Stellen Sie sich bitte Zirkusmusik vor.

Christian S. · Beiträge: 20451 Erhaltene Danke: 2264 Win 10 C# (VS 2019)

Ich habe den Thread dann mal als "erledigt" markiert. Warum nutzt das bloß keiner? :gruebel:

_________________
Zwei Worte werden Dir im Leben viele Türen öffnen - "ziehen" und "drücken".

opfer.der.genauigkeit · Beiträge: 754 Erhaltene Danke: 1

Weil der Thread noch nicht erledigt ist..
Immerhin weiß ich immernoch nicht, was mit Delphi- Tags gemeint war. :roll:

Äh.. ich werd einfach mal schaun, ob es hier ne Hilfe gibt, die ich kapieren kann. :wink:

_________________
Stellen Sie sich bitte Zirkusmusik vor.

Klabautermann · Verfasst: Do 22.07.04 12:03

Hi,

opfer.der.genauigkeit hat folgendes geschrieben:

Immerhin weiß ich immernoch nicht, was mit Delphi- Tags gemeint war.

das bezog sich hierrauf:

opfer.der.genauigkeit hat folgendes geschrieben:

Moderiert von Peter Lustig: Code- durch Delphi-Tags ersetzt.

Gruß
Klabautermann

	Mitgliederliste
	Gruppen
	Das Team
	Richtlinien
	Synonyme