Отслеживание видимых записей в области DBGrid

@Stat · Регистрация: 10.12.2010

Студворк — интернет-сервис помощи студентам

Всем привет!
Можно ли узнать количество, и обратиться к записям которые находятся в видимой части DBGrida. Т.е. таблица из базы данных загружена полностью(например 100 записей), а из-за размера окна в гриде видно только 10 записей, курсор может быть хоть в центре таблицы. Можно ли как то узнать что видно 10 записей, и обратиться к этим записям для внесения изменений?
delphi 11(2007) навсяк.
Есть стандартные методы?

@FIL · 29.06.2014, 00:07

Сообщение от Stat

Можно ли узнать количество, и обратиться

Интересный вопрос...
Думаю можно:

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
procedure TForm1.Button9Click(Sender: TObject);
var
  GridRow,
  GridRowCount,
  GridTopRow,
  DataSetRecord: Integer;
begin
  // Определяем номер выбранной строки в Гриде
  GridRow := TStringGrid(DBGrid1).Row;
  // Определяем кол-во строк (видимых) в Гриде (-1 - титульная строка)
  GridRowCount := TStringGrid(DBGrid1).RowCount - 1;
  // Текущая запись в ДатаСете
  DataSetRecord := DBGrid1.DataSource.DataSet.RecNo;
  // Нехитрые мат. вычисления номера верхней записи в Гриде
  GridTopRow := DataSetRecord - GridRow + 1;
  // Вывод результата
  ShowMessage(Format('В Гриде отображаются Записи с %d по %d',
                     [GridTopRow, GridTopRow + GridRowCount - 1]));
end;

Добавлено через 1 минуту
Нумерация записей ведется с 1.

Скандербег · 29.06.2014, 00:07

Сообщение от Stat

курсор может быть хоть в центре таблицы.

С чего бы это?
В ТDBGrid положение курсора в датасете синхронизировано с отображением активной строки в гриде.
И как ни крути (хоть в гриде перемещай курсор, хоть в датасете его методами), но активная строка будет на виду в DBGrid в любом случае.
Поэтому и проблемы нет и, разумеется, нет ничего похожего на стандартные методы определения видимости строк (записей).

@FIL · 29.06.2014, 00:10

Скандербег, имеется в виду, что курсор может быть на любой видимой строке Грида.

Скандербег · 29.06.2014, 00:28

Из вопроса не совсем ясно так ли. Осталось впечатление, что ТС видит ситуацию, когда активная строка не видна.
Но если речь о курсоре на любой видимой строке, то все равно не понятно зачем знать какие записи сейчас видны в гриде. Возможности то для "внесения изменений" во все видимые записи одновременно все равно нет.

А приемчик хорош. Подсунуть компилятору совсем другой класс вместо грида - это классно.
Не додумался бы

@FIL · 29.06.2014, 00:58

Сообщение от Скандербег

все равно не понятно зачем знать какие записи сейчас видны в гриде.

Возможно, ТС откроет нам секрет, зачем все это надо.

@northener · 29.06.2014, 02:56

Сообщение от Скандербег

А приемчик хорош. Подсунуть компилятору совсем другой класс вместо грида - это классно.
Не додумался бы

Ну если не брать в расчёт работу с датасетом, то имхо TDBGrid скорее всего более близкий родственник TCustomGrid'у, чем TStringGrid. Это я понял когда в стародавние времена разбирался с проблемой колеса мышки в TDBGrid. Так что возможно FIL просто был не совсем прав, когда привёл тип к TStringGrid'у вместо TCustomGrid.

@Stat · 29.06.2014, 08:00 **[ТС]**

Сообщение от FIL

Возможно, ТС откроет нам секрет, зачем все это надо.

Да секрета здесь нет)
Пишу в программе отображение уведомлений(в виде планировщика задач - немного эротики) для пользователя, и было бы хорошо, например когда пролистывая DBGrid записи(уведомления) которые попали в "зону видимости" я бы пометил как прочтенные...

А про курсор... на любой видимой строке.

Сообщение от FIL

Интересный вопрос...
Думаю можно:

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
procedure TForm1.Button9Click(Sender: TObject);
var
* GridRow,
* GridRowCount,
* GridTopRow,
* DataSetRecord: Integer;
begin
* // Определяем номер выбранной строки в Гриде
* GridRow := TStringGrid(DBGrid1).Row;
* // Определяем кол-во строк (видимых) в Гриде (-1 - титульная строка)
* GridRowCount := TStringGrid(DBGrid1).RowCount - 1;
* // Текущая запись в ДатаСете
* DataSetRecord := DBGrid1.DataSource.DataSet.RecNo;
* // Нехитрые мат. вычисления номера верхней записи в Гриде
* GridTopRow := DataSetRecord - GridRow + 1;
* // Вывод результата
* ShowMessage(Format('В Гриде отображаются Записи с %d по %d',
* * * * * * * * * * *[GridTopRow, GridTopRow + GridRowCount - 1]));
end;

Так, над опробовать! Спасибо!) Ток для меня нонсенс один класс живет в другом, и они не прямые "родственники"...

@FIL · 29.06.2014, 09:13

Сообщение от northener

был не совсем прав, когда привёл тип к TStringGrid'у вместо TCustomGrid.

Да, общим предком, где есть нужные св-ва, является TCustomGrid, но проблема в том, что они там "закрыты".
Так что, либо делать сабклассинг, либо использовать "непрямого родственника".
Думаю, что такое решение вполне корректно, т.к. используемые св-ва есть у общего предка, только в другой области видимости (хотя до конца не уверен

).

Скандербег · 29.06.2014, 12:32

П

Сообщение от Stat

над опробовать!

Все уже опробовано - работает.
К тому же, хотя и не прямые, а родственники, поэтому опасаться нечего - помогает, что нужный набор свойств и их типы одинаковые.
Это обстоятельство позволяет несколько упростить код, используя скрытое свойство TopRow (ну, это так, на всякий случай).

@northener · 30.06.2014, 02:46

Сообщение от FIL

Да, общим предком, где есть нужные св-ва, является TCustomGrid, но проблема в том, что они там "закрыты".
Так что, либо делать сабклассинг, либо использовать "непрямого родственника".

Т.е. ты ещё не знаешь как "вполне себе легально" получить доступ к protected свойствам компонента?

Delphi
1
2
3
4
5
type
  TMyHackGrid = class(TCustomGrid);
...
  // Определяем номер выбранной строки в Гриде
  GridRow := TMyHackGrid(DBGrid1).Row;

и получаем доступ к protected свойству предка. Именно к свойству предка, а не к свойству иного родственника, которое может быть переопределено.

@FIL · 30.06.2014, 09:31

Сообщение от northener

Т.е. ты ещё не знаешь

Сообщение от northener

Так что, либо делать сабклассинг

Это я и имел ввиду. (Хотя, наверное, этот термин не совсем подходит к данному случаю)
Но зачем писать лишнюю строчку кода, если можно обойтись без нее

Добавлено через 16 минут
Кстати, TMyHackGrid тоже не является предком TDBGrid.
Так что получается, что TMyHackGrid(DBGrid1).Row - тоже самое, что и TStringGrid(DBGrid1).Row.

@northener · 30.06.2014, 10:52

Сообщение от FIL

Так что получается, что TMyHackGrid(DBGrid1).Row - тоже самое, что и TStringGrid(DBGrid1).Row.

Да здесь так. Но вариант с TMyHackGrid просто универсальный способ получить доступ к protected свойствам предка.

Новые блоги и статьи Все статьи Все блоги /
Переходник USB-CAN-GPIO Eddy_Em 20.03.2026 Достаточно давно на работе возникла необходимость в переходнике CAN-USB с гальваноразвязкой, оный и был разработан. Однако, все меня терзала совесть, что аж 48-ногий МК используется так тупо: просто. . .	Оттенки серого Argus19 18.03.2026 Оттенки серого Нашёл в интернете 3 прекрасных модуля: Модуль класса открытия диалога открытия/ сохранения файла на Win32 API; Модуль класса быстрого перекодирования цветного изображения в оттенки. . .	SDL3 для Desktop (MinGW): Рисуем цветные прямоугольники с помощью рисовальщика SDL3 на Си и C++ 8Observer8 17.03.2026 Содержание блога Финальные проекты на Си и на C++: finish-rectangles-sdl3-c. zip finish-rectangles-sdl3-cpp. zip	Символические и жёсткие ссылки в Linux. algri14 15.03.2026 Существует два типа ссылок — символические и жёсткие. Ссылка в Linux — это запись в каталоге, которая может указывать либо на inode «файла-ИСТОЧНИКА», тогда это будет «жёсткая ссылка» (hard link),. . .
[Owen Logic] Поддержание уровня воды в резервуаре количеством включённых насосов: моделирование и выбор регулятора ФедосеевПавел 14.03.2026 Поддержание уровня воды в резервуаре количеством включённых насосов: моделирование и выбор регулятора ВВЕДЕНИЕ Выполняя задание на управление насосной группой заполнения резервуара,. . .	делаю науч статью по влиянию грибов на сукцессию anaschu 13.03.2026 прикрепляю статью	SDL3 для Desktop (MinGW): Создаём пустое окно с нуля для 2D-графики на SDL3, Си и C++ 8Observer8 10.03.2026 Содержание блога Финальные проекты на Си и на C++: hello-sdl3-c. zip hello-sdl3-cpp. zip Результат:	Установка CMake и MinGW 13.1 для сборки С и C++ приложений из консоли и из Qt Creator в EXE 8Observer8 10.03.2026 Содержание блога MinGW - это коллекция инструментов для сборки приложений в EXE. CMake - это система сборки приложений. Здесь описаны базовые шаги для старта программирования с помощью CMake и. . .

@Stat 4 / 4 / 1 Регистрация: 10.12.2010 Сообщений: 81

	Отслеживание видимых записей в области DBGrid 28.06.2014, 23:02. Показов 3465. Ответов 12 Метки нет (Все метки) Всем привет! Можно ли узнать количество, и обратиться к записям которые находятся в видимой части DBGrida. Т.е. таблица из базы данных загружена полностью(например 100 записей), а из-за размера окна в гриде видно только 10 записей, курсор может быть хоть в центре таблицы. Можно ли как то узнать что видно 10 записей, и обратиться к этим записям для внесения изменений? delphi 11(2007) навсяк. Есть стандартные методы? 0

@FIL Модератор 3492 / 2614 / 742 Регистрация: 19.09.2012 Сообщений: 7,977
	29.06.2014, 00:10
	Скандербег, имеется в виду, что курсор может быть на любой видимой строке Грида. 0

Скандербег 1076 / 989 / 340 Регистрация: 07.08.2012 Сообщений: 2,790
	29.06.2014, 00:28
	Из вопроса не совсем ясно так ли. Осталось впечатление, что ТС видит ситуацию, когда активная строка не видна. Но если речь о курсоре на любой видимой строке, то все равно не понятно зачем знать какие записи сейчас видны в гриде. Возможности то для "внесения изменений" во все видимые записи одновременно все равно нет. А приемчик хорош. Подсунуть компилятору совсем другой класс вместо грида - это классно. Не додумался бы 0

Отслеживание видимых записей в области DBGrid

Решение