[listerine]

Код на событии OnCellClick компонента dbgrid рабочий 100%. Там просто идет обращение к записям в строке. Да и когда мышкой кликаешь все хорошо - ошибок нет. Но наступает беда когда я хочу сделать тоже самое программно то есть вызвать событие OnCellClick. Вызываю так: DBGrid1CellClick(DBGrid1.Columns.Items[TStringGrid(DBGrid1).Row]). Что собственно интересно. У меня в проекте много форм и столько же таблиц но выдает ошибку только на одной таблице. Еще заметил что ошибка вылетает всегда только после 5 строчки в dbgrid(поясню: допустим ошибка на 6 строке так вот если с помощью фильтра поднять ее в первые пять ошибки на ней не будет). Собственно ошибка: list index out of bounds(n) - где n номер строки. ADOTable , DataSouce , бд Access. Сломал себе уже голову помогите пожалуйста.

[lmikle]

Надо смотреть код. Явно у тебя что-то не так установлено в переменных.

[Freeman]

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

Код на событии OnCellClick компонента dbgrid рабочий 100%. Там просто идет обращение к записям в строке.

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

Конкретно в этом коде смущает приведение экземпляра TDBGrid к TStringGrid, наверняка из-за отсутствия в TDBGrid свойства Row. А зачем, спрашивается? Это и есть быдлокод. Наличие визуальных компонентов не отменяет обычного, невизуального ООП.

[NumLock]

да, TDBGrid не наследник TStringGrid. общий родитель у них TCustomGrid.

[listerine]

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

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

Конкретно в этом коде смущает приведение экземпляра TDBGrid к TStringGrid, наверняка из-за отсутствия в TDBGrid свойства Row. А зачем, спрашивается? Это и есть быдлокод. Наличие визуальных компонентов не отменяет обычного, невизуального ООП.

Я слегка в шоке элементарного перед носом не замечал. Спасибо Freeman что открыли глаза. Избавился от задачи "программно кликнуть куда-либо". Все заработало. Спасибо всем за помощь.