Форум: "Базы";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2002.04.11;
Скачать: [xml.tar.bz2];




Вниз

Drag and Drop 


AndrewK   (2002-03-20 08:41) [0]

Как сделать Drag and Drop из DBGrid в DBGrid?



AndrewK   (2002-03-20 11:19) [1]

Проблема в том, что при перетаскивании из одной DBGrid в другую я не могу получить запись в которую сбрасывается перетаскиваемый элемент. На StartDrag определяю номер записи в базе
DBGrid1.DataSource.DataSet.FieldByName("Code").AsInteger. Когда бросаю элемент аналогичным образом беру номер записи во второй DBGrid (DBGrid2.DataSource.DataSet.FieldByName("Code").AsInteger). Делов в том, что при сбросе у меня не меняет положения курсор в DBGrid2 и я получаю не верный номер записи. Как заставить курсор таблицы следовать за курсором мыши при перетаскивании на нее элемента?



Lusha   (2002-03-20 11:40) [2]

Предлагаю следующий вариант обработчика...

var Cell : TGridCoord;
BM: TBookMarkStr;
begin
Cell := TMyDBGrid(Sender).MouseCoord(X, Y);
with TMyDBGrid(Sender).DataLink do
try
DataSource.DataSet.DisableControls;
BM := DataSource.DataSet.BookMark;
ActiveRecord := Cell.y;


// действия по занесению значения

finally
DataSource.DataSet.BookMark := BM;
DataSource.DataSet.EnableControls;
end;
end;

где TMyDBGrid = class(TDBGrid)

P.S. писал по памяти, не проверял, так что не обессудьте...



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;




Форум: "Базы";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2002.04.11;
Скачать: [xml.tar.bz2];




Наверх





Память: 0.72 MB
Время: 0.023 c
1-32743           DikobraZ              2002-03-28 15:25  2002.04.11  
Программа не запускается из Дельфи... :(


1-32828           LiNkS                 2002-03-28 18:39  2002.04.11  
GIF в Delphi


1-32721           FPS                   2002-03-27 12:09  2002.04.11  
как заставить функцию ждать нажатия кнопки


4-33011           Yaro                  2002-02-10 21:38  2002.04.11  
Принудительное завершение работы программы, не имеющую окна или как получить Хэндл процесса


1-32739           LazorenkoX            2002-03-30 00:09  2002.04.11  
Движок БД (file of XXX)