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]