Nachrichten eines Sub-Control's mithören (Hook, WindowProc)

[neolithos]

Mit Hilfe von WindowProc kann man sich an den Message-Handler eines Controls anhängen ergo mitlauschen.

Nach der Initialsierung steht WindowProc auf WndProc also dem Original-Message-Handle. Das heißt überschreibe ich den Pointer von WindowProc mit meiner eigenen TWndMethod, so muss ich vorher den alten Wert von WindowProc mir merken, um später die Procedure zu rufen.

Klingt komplizert is aber nich so.

Das nachfolgende Beispiel soll das Verdeutlichen:

Delphi-Quellcode:

TMyForm = class(TForm)
  ... 
  private 
    pOldEdProc : TWndMethod; 
    procedure EdProc(var Message: TMessage); 
  
procedure TMyForm.FormCreate(...); 
begin 
  ... 
  pOldEdProc := txtEd.WindowProc; 
  txtEd.WindowProc := EdProc; 
  ... 
end; 

procedure TMyForm.EdProc(var Message: TMessage); 
begin 
  pOldEdProc(Message); // alten Message-Handler rufen
  // Eigene Funktionalität
  with Message do 
    case Msg of 
      CM_ENABLEDCHANGED: 
        if txtEd.Enabled then 
          ... 
        else 
          ...; 
    end; 
end;

[edit=Matze]Code formatiert. Mfg, Matze[/edit]