Скачать: CL | DM;

Перемещение по 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 вся ветка

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.012 c