Использование опции MultiSelect в DBGrid

Использование опции MultiSelect в DBGrid

Данный пример реализует множественный выбор записей в табличной сетке и отображение второго поля набора данных.
Метод disablecontrols применяется для того, чтобы dbgrid не обновлялся во время изменения набора данных. Последняя позиция набора данных сохраняется как bookmark.

Метод indexof вызывается для проверки существования вкладки. Решение о выборе метода indexof (или refresh) должно определяться спецификой приложения.

procedure tform1.selectclick(sender: tobject);
var
x: word;
tempbookmark: tbookmark;
begin
dbgrid1.datasource.dataset.disablecontrols;
with dbgrid1.selectedrows do
if count <> 0 then begin
tempbookmark := dbgrid1.datasource.dataset.getbookmark;
for x := 0 to count - 1 do begin
if indexof(items[x]) > -1 then begin
dbgrid1.datasource.dataset.bookmark := items[x];
showmessage(dbgrid1.datasource.dataset.fields[1].asstring);
end;
dbgrid1.datasource.dataset.gotobookmark(tempbookmark);
dbgrid1.datasource.dataset.freebookmark(tempbookmark);
dbgrid1.datasource.dataset.enablecontrols;
end;

[news group]
Источник: http://www.gyry.net

Эта запись была добавлена в Воскресенье, 25 мая, 2008 - 3:02 В разделы DBGrid, Компоненты. Вы можете подписаться на получение новых комментариев RSS 2.0 feed. Both comments and pings are currently closed.