Botschaft weiterleiten

nimoee · Hält's aus hier Beiträge: 7 w2k D5

Hallo, ( gehört zu einer Komponente, deshalb jier )
folgendes Problem:

ich hab eine message abgefangen, bearbeite diese. Wie kann ich erreichen, dass die weitergeleitet wird, wenn ich fertig bin?

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:

procedure UNSetRO(var Message: TWMSetFocus); message EM_SETREADONLY;

{...}

procedure TmaskEditL.UNSetRO(var Message: TWMSetFocus);
begin

{ dann tu ich irgend was}

end;

nimoee

Moderiert von Tino: Delphi-Tags hinzugefügt.

bIce · Beiträge: 55

Wohin willst Du denn die Nachricht weiterleiten?

worm · Beiträge: 135 D6 Prof

Also wenn die Botschaft von dem Control bearbeitet werden soll, von dem Du deine Komponente abgeleitet hast, mach etwas in der Art:

markieren

Delphi-Quelltext

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

procedure TmaskEditL.UNSetRO(var Message: TWMSetFocus); 
begin 
  with Message do
    if IrgendwasBestimmtesWasIchAbfangenWill then 
      TuDasWasIchWill
    else
      inherited;
end;

_________________
In the beginning, the universe was created. This has made a lot of people very angry, and is generally considered to have been a bad move.

nimoee · Hält's aus hier Beiträge: 7 w2k D5

hallo,

was ruft inherited denn auf?
Ich hab keine Routine überschrieben!
Die alte Ereignisbehandlungsroutine, die zu dem Ereignis gehört?
Woher weiss inherited das denn?

nimoee

worm · Beiträge: 135 D6 Prof

Hmm, das stimmt... die Ereignisbehandlungsroutine müsste dann IMO genauso lauten wie vorher (also bei der Klasse, von der Du erbst). Was genau hast du denn vor?

_________________
In the beginning, the universe was created. This has made a lot of people very angry, and is generally considered to have been a bad move.

Motzi · Verfasst: So 21.09.03 21:29

In diesem Fall sorgt das inherited dafür, dass die anderen Message-Handler der Vorfahren über das Eintreffen der Nachricht informiert werden (auch wenn diese unterschiedliche Namen haben)... macht also genau das was du wolltest!

_________________
gringo pussy cats - eef i see you i will pull your tail out by eets roots!

	Mitgliederliste
	Gruppen
	Das Team
	Richtlinien
	Synonyme