Habe ich zwar noch nie gebraucht, aber ich probier es mal:
Delphi-Quellcode:
type
TEkg = class(TGroupBox)
(...)
procedure EkgMouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
procedure WMMouseMove(var Message: TWMMouseMove); message WM_MOUSEMOVE;
public
constructor Create(AOwner: TComponent); override;
(...)
end;
[...]
procedure TControl.WMMouseMove(var Message: TWMMouseMove);
begin
inherited;
[...]
end;
In Message steckt noch einiges drin:
Delphi-Quellcode:
TWMMouse = packed record
Msg: Cardinal;
Keys: Longint;
case Integer of
0: (
XPos: Smallint;
YPos: Smallint);
1: (
Pos: TSmallPoint;
Result: Longint);
end;