GetCursorPos вам в помощь... При перемещении (OnMouseMove) отслеживайте координаты указателя, если это оно (выер на shape) сделать то-то, или вот ещё вариант(через API функцу
GetCapture), (форма уже в нужной позиции)
Код:
procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
begin
If GetCapture = 0 then SetCapture(Handle);
if PtInRect(Rect(Left,Top,Left+Width, Top+Height),ClientToScreen(Point(x, y))) then
Caption := 'Вот оно!!!' else Caption := 'Ничего не происходит';
end;
только не забудьте про
Код:
procedure TForm1.FormDeactivate(Sender: TObject);
begin
ReleaseCapture;
end;
есно всё из DRKB (советую скачать)