Как программно перемещаться по ячейка DataGrid и выделять их

[ВалГер]

Есть ли возможность программно перемещаться по ячейкам DataGrid и, самое главное, выделить ставшую текущущей ячейку? То есть, фактически, имитировать щелчок мышкой на нужной ячейке.

Перемещение, как я предполагаю, это

DataGrid1.Col = <Номер-колонки>
DataGrid1.Row = <Номер-строки>

Но при этом ячейка не выделяется

[Andrev]

А вот так:

Код: Выделить всё

Private Sub Command1_Click()
DataGrid1.Col = 2 'Номер столбца, на который надо переместиться
DataGrid1.Row = 3 'Номер строки, на которую надо переместиться
DataGrid1.EditActive = True 'Перевод фокуса на установленную ячейку
End Sub


Наслаждайся.

[ВалГер]

Спасибо, всё работает. А то я по этому MSDN-у обыскался. Есть всё что угодно, кроме того, что надо.
Может быть подскажете заодно, как сделать так, чтобы в редактируемой ячейке DataGrid мигал бы курсор?

С уважением ВалГер

[Andrev]

Да без проблем! Надо к вышеуказанному добавить:

Код: Выделить всё

DataGrid1.SelStart = 0
DataGrid1.SelLength = 0


В этом случае курсор будет мигать на первой позиции.

[ВалГер]

Да без проблем! Надо к вышеуказанному добавить:

Код: Выделить всё

DataGrid1.SelStart = 0
DataGrid1.SelLength = 0


В этом случае курсор будет мигать на первой позиции.

Ан нет! Фокус не удался - курсор не мигает, хотя ячейка редактируется нормально. Есть у меня сильное подозрение, что это вообще сделать невозможно

[Andrev]

Не знаю, не знаю... У меня все нормально работает. Курсор мигает на первой позиции. На всякий случай вот полный код нажатия на кнопку:

Код: Выделить всё

Private Sub Command1_Click()
DataGrid1.Col = 2 'Номер столбца, на который надо переместиться
DataGrid1.Row = 3 'Номер строки, на которую надо переместиться
DataGrid1.EditActive = True 'Перевод фокуса на установленную ячейку
DataGrid1.SelStart = 1 'Номер позиции, на которую перемещаем курсор
DataGrid1.SelLength = 0
End Sub