Das OnMouseMove Event ist in TControl bereits als protected deklariert und wird in den entsprechenden Komponenten im Allgemeinen lediglich published gemacht. Somit kannst du mit dem altbekannten Hack "wie greife ich auf protected Eigenschaften einer Klasse zu" das Problem zwar nicht in der
IDE, aber im Source lösen:
Delphi-Quellcode:
type
TControlHack = class(TControl)
end;
procedure SetMouseMoveEventToControl(AControl: TControl; AMouseMoveEvent: TMouseMoveEvent
begin
TControlHack(AControl).OnMouseMove := AMouseMoveEvent;
end;