TApplication.Processmessage

[knochen]

Wie sieht's denn damit aus?

Delphi-Quellcode:

  TMyApplication = class(TApplication)
  public
    function ProcessMessage(var Msg: TMsg): Boolean;
  end;

...

{ TMyApplication }

function TMyApplication.ProcessMessage(var Msg: TMsg): Boolean;
begin
  inherited;
end;


Aufruf: 

procedure TForm1.Button1Click(Sender: TObject);
var
  Msg: TMsg;
begin
  TMyApplication(Application).ProcessMessage(Msg);
end;