Source position: controls.pp line 363
type TMouseMoveEvent = procedure(
Sender: TObject;
Shift: TShiftState;
X: Integer;
Y: Integer
) of object;