Delphi уроки - Drag&Drop в компоненте DBGrid
Не мало статей уже написано про то как перетаскивать различные объекты, по форме используя функцию Drag&Drop, но все-таки в очередной раз хочу вернуться к этой теме и рассказать вам как можно используя Drag&Drop легко организовать перетаскивание строк в компоненте DBGrid. Не буду вас долго томить с введением, и поэтому давайте начинать...
Открываем Delphi и создаем новый проект. На форме нам понадобиться один компонент Memo с закладки Standard (именно в него мы будем перетаскивать строки), а также непосредсвенно сам компонент DbGrid с закладки DataControl.
Ну что я надеюсь, вы уже справились и кинули Memo и DbGrid на форму, да вот еще, в этом уроке я не буду рассказывать вам о том как подключиться к базе данных и как вывести таблицу из БД в компонент DBgrid, я предполагаю что вы это умеете делать.
Что теперь, выделяем DbGrid и в Object Inspector'e на вкладке Events создаем событие OnCellClick (кликаем 2 раза)
Теперь, когда Delphi создал для нас заготовку под будующую процедуру напишем между begin и end вот такой код:
DBGrid1.BeginDrag(True);
Далее, нам нужно сказать компоненту Memo откуда ему можно принимать данные. Поэтому создаем обработчик событий OnDragOver на компоненте Memo и опять же между begin .. end прописываем вот такой код:
Accept:= Source IS TDBGrid;
Ну и последние что нам нужно сделать это создать еще один обработчик событий OnDragDrop опять же на компоненте Memo. Ниже я привожу полный код процедуры DragDrop ну а вы уже смотрите на то что получилось у меня и добавляйте к себе в код недостающие строки.
procedure TForm1.Memo1DragDrop(Sender, Source: TObject; X, Y: Integer);
var i : integer;
begin
Memo1.Clear;
for i:= 0 to -1 + DBGrid1.FieldCount do
begin
Memo1.Lines.Add(DBGrid1.Fields[i].AsString);
end;
end;
Вот и все как видите ничего сложного, запускаем проект и переносим строчку из DbGrid в Memo. Согласитесь что пользователю будет намного удобнее работать в таком режиме, да что там удобнее, намного быстрее трансферы дешево в любую точку.)
P.S. Хотите вперед всех остальных посетителей сайта получать свежие Видео уроки, Аудио подкасты, статьи по Delphi.
Учавствовать в конкурсах и постепенно вливаться в нашу команду ?!
Тогда прямо сейчас подписывайтесь на бесплатную мультимедийную рассылку сайта delphiexpert.ru
Нас уже больше чем 1500 человек !
Похожие материалы
- Delphi исходники - поиск кратчайшего пути в лабиринте
- Исходник игры Солитер
- Delphi Уроки: Drag&Drop, учимся перетаскивать картинку по форме
- Delphi урок - Невидимая форма с видимыми компонентами
- Видео урок - Delphi и MySql, подключение
Последние из рубрики
- Delphi видео урок-OpenGL часть 3. Масштабирование и поворот изображения
- Delphi видео урок-OpenGL часть 4. Прозрачность
- Отвязное видео с подведением итогов конкурса будильников