Перемещение по 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; // (или как там его, таба ентого)

>Vopros
>keybd_event(9, 0, 0, 0); - класс !!!
А что это за процедура ?

спасибо

SelectedIndex

Перемещение по DBGrid Найти похожие ветки