Drag&Drop в DBGrid

← →
Denned (2005-09-19 16:16) [0]

Здравствуйте! У меня возникла проблема с Drag&Drop для DBGrid. Суть её в том, что Drag&Drop срабатывает только, если щелкнуть по заголовку таблицы. Для обычных записей это почему-то не срабатывает. Вот код:

procedure TMainForm.DBGrid1MouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
if (Button = mbLeft) and (ssAlt in Shift) then begin
DBGrid1.BeginDrag(False);
end;
end;

При этом все это прекрасно работает, если заменить DBGrid на какой-нить TreeView. А для DBGrid это срабатывает почему-то только для заголовков!

Подскажите пожалуйста, уважаемые, в чем загвоздка?

← →
MBo © (2005-09-19 17:05) [1]

перетаскивать нужно в грид или из него?

← →
Denned (2005-09-20 08:21) [2]

Из грида в TreeView.

DragDetect

Drag&amp;Drop в DBGrid Найти похожие ветки

Drag&Drop в DBGrid Найти похожие ветки