Текущий архив: 2005.10.09;
Скачать: CL | DM;
Вниз
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.
← →
MBo © (2005-09-20 11:03) [3]DragDetect
Страницы: 1 вся ветка
Текущий архив: 2005.10.09;
Скачать: CL | DM;
Память: 0.47 MB
Время: 0.025 c
