drag $ drop в DBGrid

[AlexandrSid]

Нет. А как он может меняться если метод дерева BeginDrag я запускаю в процедуре MouseDown, а процедура эта даже не вызывается.
Я сделал через MoveMouse теперь все работает.

[mutabor]

Значит на автомат (dmAutomatic) поставь, и тот код что Сергей давал.
Просто когда я листбокс делал со всеми наворотами у меня тоже проблемы были с нажатими кнопок, я даже хотел через WinAPI сообщения мыши ловить, смутно помню, но помню что проблема скрывалась в перетаскивании. Что точно сделал не помню, но проблему решил без WinAPI (с ним еще хуже получалось) и без MouseMove.

p.s. Нашел свою старую тему, немного не такая проблема была, память подводит )
http://www.programmersforum.ru/showt...hlight=ListBox

[mmx-dimitrov]

Все намного проще
в гриде на событие OnMouseMove ставишь:

MouseMove(Sender: TObject;  Shift: TShiftState; X, Y: Integer);
begin
 if Shift = [ssLeft] then DBGrid1.BeginDrag(false);
end;

а событие OnMouseDown действительно не работает на таблице

[Stilet]

BeginDrag(false);

А я бы на всякий случай не забыл порог срабатывания указать, ато оно на каждый клик реагировать будет:DBGrid1.BeginDrag(false,20);