Vergleich von Delphi und Visual C++ - Inhalt

Vergleich von Delphi und Visual C++ - Kapitel 2C
type
MeineMsg = record
Msg: Cardinal;
Text: String;
end;
// die ersten 4 Byte für Botschafts-Nummer
// Beispiel für einen Botschafts-Inhalt
A = class
public
procedure Botschaftbehandlung1(var M: MeineMsg); message 1;
end;
procedure A.Botschaftbehandlung1(var M: MeineMsg);
begin
writeln('A: Botschaft ', M.Text, ' erhalten.');
end;
var
ObjA: A;
Nachricht: MeineMsg;
begin
ObjA:= A.Create;
Nachricht.Msg:= 1;
// NachrichtenNummer eintragen
Nachricht.Text:= 'Guten Tag'; // NachrichtenInhalt eintragen
ObjA.Dispatch(Nachricht); // Nachricht verschicken
ObjA.Free;
end.
Programm-Ausgabe: A: Botschaft Guten Tag erhalten.
In diesem Beispiel schickt Objekt A eine Botschaft an sich selbst. Das ist nicht besonders sinnvoll, demonstriert aber den Mechanismus des
Versendens und Empfangens von Botschaften. Durch den Aufruf von Dispatch wird eine Botschaft verschickt. Der Empfänger der
Botschaft ist klar bestimmt. Es ist aber für den Sender unerheblich, von welchem Klassen-Typ der Empfänger ist; der Empfänger kann
irgendein beliebiges Objekt sein.
Die Prozedur Dispatch, die in allen Objekten bekannt ist, erledigt auch das Auffinden der zur Botschaft passenden Methode und ruft diese
dann auf. Dazu sucht Dispatch zuerst in der DMT der tatsächlichen Klasse der Instanz nach einer Methode mit der in der Botschaft
enthaltenen Nummer. Ist dort keine solche Methode enthalten, wird, wie bei allen dynamischen Methoden, die Tabelle des Vorfahren der
Klasse durchsucht, dann die von dessen Vorfahren, und so weiter. In welchem Schutzabschnitt einer Klasse (private, protected, public)
eine Botschaftsbehandlungs-Methode definiert wurde, ist für den Empfang von Botschaften unerheblich.
Es ist ein entscheidendes Merkmal der Botschaftsbehandlungs-Methoden, daß für den Aufruf einer botschaftsverarbeitenden Methode über
Dispatch nur deren Nummer entscheidend ist. Der Name der Methode ist völlig irrelevant (im Beispiel lautet er Botschaftbehandlung1). Es
ist insbesondere möglich, eine botschaftsverarbeitende Methode durch eine Methode völlig anderen Namens zu überschreiben, solange nur
die Nummern übereinstimmen.
Enthält beim Aufruf von Dispatch der gesamte in Frage kommende Zweig der Klassenhierarchie keine Methode mit der angegebenen
Nummer, dann wird eine virtuelle Methode DefaultHandler aufgerufen, die in der Basisklasse TObject wie folgt deklariert ist:
procedure DefaultHandler(var Message); virtual;
Ein Aufruf dieser Methode bewirkt nichts, weil der Funktionsrumpf der Methode leer ist. Es ist aber möglich, DefaultHandler zu
überschreiben, um ein anderes Standardverhalten bei unbehandelten Nachrichten zu implementieren, zum Beispiel die Ausgabe einer
Fehlermeldung. Innerhalb der Klassenbibliothek VCL ruft die Methode DefaultHandler für Fenster-Klassen die Windows-API-Funktion
http://ourworld.compuserve.com/homepages/praxisservice/kapit2c.htm (16 of 33) [19.05.2000 15:30:15]