Форум: "Базы";
Текущий архив: 2002.04.11;
Скачать: [xml.tar.bz2];
ВнизDrag and Drop Найти похожие ветки
← →
xpdeveloper (2002-03-20 15:06) [3]Проблема в том, что при перетаскивании из одной DBGrid в другую я не могу получить запись в которую сбрасывается перетаскиваемый элемент.
Можно написать маленький DragObject в виде структуры где будут указаны источники
DataSet и Bookmark на запись которую надо перетаскивать.
Как заставить курсор таблицы следовать за курсором мыши при перетаскивании на нее элемента?
надо использовать CMDrag событие/сообщение
procedure CMDrag(var Message: TCMDrag); message CM_DRAG;
а в нем обрабатывать dragmessage:
procedure YourGrid.CMDrag(var Message: TCMDrag);
begin
inherited;
with Message, DragRec^ do
case DragMessage of
dmDragMove:
begin
//драг в котроле здесь
with ScreenToClient(Pos) do
//эта функция - вот она будет перемещать курсор таблицы
MoveGridCursor(Source, X, Y);
end;
dmDragEnter:
begin
//драг пришел на контрол
end;
dmDragLeave:
begin
//драг ушел на другой контрол
end;
dmDragDrop:
begin
//здесь запись кидается
end;
end;
end;
Страницы: 1 вся ветка
Форум: "Базы";
Текущий архив: 2002.04.11;
Скачать: [xml.tar.bz2];
Память: 0.44 MB
Время: 0.005 c