You could try using FindDragTarget
procedure TForm1.Memo1MouseWheelDown(Sender: TObject; Shift: TShiftState; MousePos: TPoint; var Handled: Boolean); var cntrl:tcontrol; begin cntrl:=tcontrol(FindDragTarget(Mouse.CursorPos,true)); if cntrl is tmemo then begin if cntrl.Name='Memo1' then begin memolab.caption:='Memo1 MouseWheelDown MousePos X:= '+inttostr(mousepos.X); end; end; end;
example proj attahed