Как заставить TDBCtrlGrid принимать на себя фокус при DragDrop?

← →
Курдль © (2005-09-15 12:48) [0]

Имею нечто вроде "Проводника" (слева - папки, справа - картинки).
Цель - распихивать картинки по папкам с помощью Drag"n"Drop.
Весь процесс работает нормально.
Но при DragMode := dmAutomatic картинка, на которой фокус, не отображается, как активная и не работает DblClick по ней. Т.ж. сбиваются контролы управления набором данных (типа навигатора).

← →
Курдль © (2005-09-16 11:56) [1]

Проблема частично решилась
procedure TfrmPTList.DBImage1StartDrag(Sender: TObject; var DragObject: TDragObject); begin inherited; (Sender as TDBImage).SetFocus; end;

Но это не спасло от всех проблем: OnDblClick так и не заработало... :(
Кто поможет точным и емким советом? :)

Как заставить TDBCtrlGrid принимать на себя фокус при DragDrop? Найти похожие ветки