VPF::Перетаскивание данных в гриде пользователем

Lunatikus

Дата 24.7.2007, 10:19 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 503
Регистрация: 29.6.2007

Репутация: 1
Всего: 6

СУБД MS SQL Server 2000.Компонент DBGrid.

Вот грид с данными:

http://win.mail.ru/cgi-bin/readmsg/Bezymya...nt&channel=

Вопрос-существует ли возможность мышкой переносить данные "машина" в другую ячейку данного поля,а также той же мышкой сдвигать цветные границы(цвет поля определяется по значению скрытого поля id_interval,везде,где светло-синий, там поле id_interval=1,где темно-синий - id_interval=2).Имею в виду,какие осбытия надо обрабатывать и какие методы использовать?вопрос,не спорю,смутный.Если чтото не до конца понятно,объясню подробнее.

--------------------

TheSin - небольшое игровое сообщество взрослых и молодых(L2,WoW,Aion,RFonline and other not mmorpg,not computer games).
сайт гильдии

Savek

Дата 24.7.2007, 13:32 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 355
Регистрация: 10.4.2006
Где: Воронеж

Репутация: 7
Всего: 7

Посмотриздесь, разберешься в алгоритме, сможешь заточить под свои нужды

Akella

Дата 24.7.2007, 15:48 (ссылка)

(нет голосов)

Загрузка ...

Творец

Профиль
Группа: Модератор
Сообщений: 18485
Регистрация: 14.5.2003
Где: Корусант

Репутация: 29
Всего: 329

Lunatikus, а что это ты за ссылку дал?

Lunatikus

Дата 24.7.2007, 16:16 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 503
Регистрация: 29.6.2007

Репутация: 1
Всего: 6

опс,прошу прощения за неправильную ссылку-через мейл пытался картинку показать )) В принципе и без нее вопрос,думаю,понятен.Сижу разбираюсь в коде,что подкинул Savec.=)

--------------------

TheSin - небольшое игровое сообщество взрослых и молодых(L2,WoW,Aion,RFonline and other not mmorpg,not computer games).
сайт гильдии

Marduk

Дата 30.7.2007, 10:34 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 83
Регистрация: 9.4.2007

Репутация: нет
Всего: 2

Перетаскивание в DBGrid:

Код


type
 TDBNew = class(TDBGrid); // определяем новый тип, чтобы было доступен метод MouseCoord из секции protected
 end;
.... 
procedure Tform1.DbGrid1DragDrop(Sender, Source: Tobject; X, Y: Integer);
var
 gc: TGridCoord;
begin
 gc := TDBNew(DBGrid1).MouseCoord(x,y);
 if (gc.y > 0) and (gc.x > 0) then
  begin
   dbgrid1.datasource.dataset.moveby(gc.y - tdbnew(dbgrid1).row);
   dbgrid1.datasource.dataset.edit;
   dbgrid1.columns.items[gc.x - 1].field.asstring := Edit1.text; //текст перетаскиваемого Edit
  end;
 dbgrid1.setfocus;
end;

здесь пример на тектовом поле таблицы и перетаскиваемом edit'e

Первая операция определяет ячейку над которой была отпущена кнопка мыши. обладая координатами курсора мыши, обращаемся к методу MouseCoord для того чтобы определить столбец и строку в таблице. Если целевая ячейка располагается не в первом ряду, в котором обычно находится заголовок, и не в первом столбце, в котором находится индикатор, то перемещаем указатель на текущую запись, используя разницу между номером строки (gc.y) и текущей активной строкой. Далее переводим набор данных в режим редактирования, извлекается значение поля из целевого столбца и изменяется его текст.

Это сообщение отредактировал(а) Marduk - 30.7.2007, 10:37

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Базы данных и репортинг \| Следующая тема »