|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#1
|
|||
|
|||
Появление формы при Drag&Drop
Здравствуйте, доделываю свою панель быстрого запуска..
Программа прячется за экраном, видно лишь кусочик shape. По клику по shape форма выезжает. Решил добавить в программу Drag&Drop. Работает нормально, я всё сделал в принципе ) Но вот один нюанс... Как заставить форму выезжать в тот момент, когда на нее пытаюсь кинуть ярлык (путем драг-дропа)? Вот беру ярлык, подвожу к видной части формы (вот тут форма должна выпалзти ) Пожалуйста, подскажите, как можно сделать такое? |
#2
|
||||
|
||||
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; Я не понял Вашего вопроса, но всё же Вам на него отвечу! |