Rahmenwahl und Cursorstandpunkte

[Joe24]

Das MouseMove-Event in Form1 abgefangen

Delphi-Quellcode:

TForm1 = class( TForm)
 private
  ...
  procedure WMMouseMove(var Message: TWMMouseMove); message WM_MOUSEMOVE;
  ...
end;

procedure TForm1.WMMouseMove(var Message: TWMMouseMove);
begin
  inherited;
  (* Methodenaufruf zu dem Code einfügen *)
end;