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

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

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;

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