Abfangen einer Message ans eigene Programm

[Luckie]

Hmpf, Grundlagen.

Delphi-Quellcode:

var
  bShow: Boolean = False;
  bStart: Boolean = False;

Delphi-Quellcode:

procedure TForm1.WndProc(var msg: TMessage);
var
  s: string;
begin
  if bStart = True then
  begin
    case msg.Msg of
      WM_MOUSEMOVE:
        begin
          // leider gibt es keine Funktion, die den numerischen Wert der
          // Konstante umwandelt, deswegen alles von Hand und das macht es so
          // aufwendig
          s := 'WM_MOUSEMOVE';
          Memo1.Lines.Add(s + '= '+IntToStr(msg.Msg));
        end;
[..]
    // weiterleiten an die in der VCL eingebaute WndProc,
    // sonst reagiert unser Programm nicht mehr auf die abgefangenen Nachrichten
  end;
  inherited;
end;

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
begin
  bStart := not bStart;
end;