Форум: "Базы";
Текущий архив: 2003.05.29;
Скачать: [xml.tar.bz2];
Вниз
Перемещение по DBGrid Найти похожие ветки
← →
Evg12345 (2003-05-08 08:03) [0]Подскажите пожалуйста как можно "перепрыгивать" от поля к полю (как это происходит по нажатию TAB) по нажатию кнопки Enter.
← →
Stas (2003-05-08 09:44) [1]Событие DBGRID OnKeyDown
procedure TForm1.DBGrid1KeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
if key=13 then Dbgrid1.SelectedIndex:=Dbgrid1.SelectedIndex+1;
end;
← →
Danilka (2003-05-08 09:49) [2]или вот-так:
procedure TForm1.Button1Click(Sender: TObject);
begin
DBGrid1.DataSource.DataSet.Next;
end;
;))
← →
Stas (2003-05-08 09:51) [3]to Danilka
>DBGrid1.DataSource.DataSet.Next;
Это курсор будет переходить на новую запись, а не поле.
← →
Danilka (2003-05-08 09:54) [4]Stas © (08.05.03 09:51)
верно.
слепой я, недочитал вопрос, не увидел "от поля к полю" :))
← →
vopros (2003-05-08 09:57) [5]>Stas © (08.05.03 09:44)
А прверку на последнюю ты сделал?
procedure TForm1.DBGrid1KeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
if key=13 then keybd_event(9, 0, 0, 0);
end;
Вроде так
← →
3JIA9I CyKA (2003-05-08 10:01) [6]if Key = VK_RETURN then Key := VK_TAB; // (или как там его, таба ентого)
← →
Stas (2003-05-08 10:05) [7]>Vopros
>keybd_event(9, 0, 0, 0); - класс !!!
А что это за процедура ?
← →
Evg12345 (2003-05-08 10:15) [8]спасибо
← →
Anatoly Podgoretsky (2003-05-08 11:04) [9]SelectedIndex
Страницы: 1 вся ветка
Форум: "Базы";
Текущий архив: 2003.05.29;
Скачать: [xml.tar.bz2];
Память: 0.45 MB
Время: 0.014 c