[Gareth]

Здравствуйте, доделываю свою панель быстрого запуска..
Программа прячется за экраном, видно лишь кусочик shape. По клику по shape форма выезжает.

Решил добавить в программу Drag&Drop. Работает нормально, я всё сделал в принципе )
Но вот один нюанс... Как заставить форму выезжать в тот момент, когда на нее пытаюсь кинуть ярлык (путем драг-дропа)?

Вот беру ярлык, подвожу к видной части формы (вот тут форма должна выпалзти )
Пожалуйста, подскажите, как можно сделать такое?

[Alegun]

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 (советую скачать)