Message an Procedure

[Desmulator]

Ich bins mal wieder -.-

also es geht darum, dass eine procedur ausgeführt wird, wenn eine bestimmte message an das fenster gesendet wird.
Ich habe eine eigene Klasse geschrieben, die ein fenster erstellt und dieses auf schließung überwacht bzw. soll.

Delphi-Quellcode:

type
  TBaseWindow = class(TObject)
  private
    { FHandle : Enthält den Fensterhandle }
    FHandle : HWnd;
    { ClassName : Enthält den Klassennamen }
    ClassName : PChar;
    { RegClass : Registriert die Classe mit minimalen Einstellungen }
    procedure RegClass;
    { UnRegClass : Unregisterit die Classe }
    //procedure UnRegClass;
    { CreateWnd : Erstellt das Fenster mit minimalen Einstellungen }
    procedure CreateWnd;
    { DestroyWnd : Schließt das Fenster }
    //procedure DestroyWnd;
    { Show : Zeigt das Fenster nach CmdShow an }
    procedure CmdShow(Style : Integer);
    { WMClose : Wenn die Nachricht WM_CLOSE gesendet wird }
    procedure WMClose(var Message: TMsg); message WM_CLOSE;
  public
    { Handle : Gibt den Hwnd zurück }
    property Handle : HWnd read FHandle;
    { Create : Erstellt das Fenster }
    constructor Create(WindowName : String);
    { Destroy : Schließt das Fenster }
    //destructor Detroy;
  end;

Genauer gesagt geht es hierum :

procedure WMClose(var Message: TMsg); message WM_CLOSE; Wie bekomme ich es hin, dass WMClose ausgeführt wird, wenn die message WM_CLOSE gesent wird...

MfG Desmu

Edit: Vllt sollte ich noch sagen, dass ich nur Windows und Messages in der Uses habe

[Desmulator]

Okay ich habs gefunden:

Die Lösung lautet TObject.Dispatch!

Zitat:

Mit Dispatch werden Botschaften automatisch an die geeignete Botschaftsbehandlungsroutine übergeben.

Dispatch ermittelt, ob für eine Botschaft in der objekteigenen Liste die entsprechende Behandlungsroutine existiert. Ist dies nicht der Fall, wird die Liste des Vorfahren untersucht. Wenn auch sie keine Behandlungsroutine enthält, wird der nächste Vorfahr untersucht usw. Dieser Vorgang wird erst beendet, wenn eine geeignete Behandlungsroutine gefunden wird oder die oberste Ebene der Hierarchie erreicht ist. In letzterem Fall wird DefaultHandler aufgerufen.