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

dbgrid i Enter..   Найти похожие ветки 

← →
Flashas ©   (2004-04-14 17:26) [0]

kak sdelat 4toby v dbgrid perexodyt po poliam s Enter?

---

← →
alsov ©   (2004-04-14 17:32) [1]

на keypress пиши
 if ord(key) = 13 then Query1.Next
или
 if ord(key) = 13 then Table1.Next
смотря чем пользуешься

---

← →
Amoeba ©   (2004-04-14 17:35) [2]

> alsov ©   (14.04.04 17:32) [1]
> на keypress пиши
>  if ord(key) = 13 then Query1.Next
> или
>  if ord(key) = 13 then Table1.Next
> смотря чем пользуешься


Автору нужно переходить не по записям, а по полям в пределах записи! Читай внимательно вопрос.

---

← →
Flashas ©   (2004-04-14 17:36) [3]

Spasibo

---

← →
alsov ©   (2004-04-14 17:52) [4]

сори, тогда так

procedure TForm1.DBGrid1KeyDown(Sender: TObject; var Key: Word;
 Shift: TShiftState);
begin
 if key = 13 then key := 9;
end;

procedure TForm1.DBGrid1KeyUp(Sender: TObject; var Key: Word;
 Shift: TShiftState);
begin
 if key = 13 then key := 0;
end;

procedure TForm1.DBGrid1KeyPress(Sender: TObject; var Key: Char);
begin
 if ord(key) = 13 then key := chr(0);
end;

---

Страницы: 1 вся ветка

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



Память: 0.45 MB
Время: 0.023 c