Добро пожаловать в форум, Guest  >>   Войти | Регистрация | Поиск | Правила | В избранное | Подписаться
Все форумы / Delphi Новый топик    Ответить
 DBGrid и TAB  [new]
noram
Member

Откуда: Москва
Сообщений: 31
День добрый!
Подскажите, плиз, как мне добиться того, чтобы при нажатии TAB в DBGrid выбиралась следующая ячейка, а по достижению последней ячейки вибиралась первая ячейка и следующая строка.
Вот как я пытаюсь решить эту проблему
if Key = 9 then
  begin
    i := DBGrid.SelectedIndex;
    rowNum := DataForm.SQLDS.DataSet.RecNo;
    rNum := rowNum;
    tRow := TotalRows in Grid;
    if (i = 16) AND (rowNum < tRow)  then
    begin
      DBGrid.SelectedIndex := 1;
      DBGrid.Perform(WM_KEYDOWN,VK_DOWN,0);
    end;
    DBGrid.Perform(WM_KEYDOWN,VK_RIGHT,0);
    if rowNum < tRow then
       DBGrid.Perform(WM_KEYDOWN,VK_UP,0);

Все работает, кроме первой строки. Если TAB начинается с первой строки, то сразу выбирается вторая строка, чтобы я не делал.
Заранее спасибо...
3 апр 15, 11:00    [17468153]     Ответить | Цитировать Сообщить модератору
 Re: DBGrid и TAB  [new]
wadman
Member

Откуда: Санкт-Петербург
Сообщений: 23771
Что не устраивает встроенная в опциях dgTabs?

help
dgTabs
The user can navigate through the grid using the TAB and SHIFT+TAB keys.
3 апр 15, 11:04    [17468183]     Ответить | Цитировать Сообщить модератору
 Re: DBGrid и TAB  [new]
noram
Member

Откуда: Москва
Сообщений: 31
Если я вам объясню, чем меня не устраивает встроеная опция dgTabs, вы объясните мне, как решить проблему моим способом?
3 апр 15, 11:14    [17468230]     Ответить | Цитировать Сообщить модератору
 Re: DBGrid и TAB  [new]
wadman
Member

Откуда: Санкт-Петербург
Сообщений: 23771
Ого... Еще и торгуется.
3 апр 15, 11:23    [17468286]     Ответить | Цитировать Сообщить модератору
Все форумы / Delphi Ответить