Текущий архив: 2004.05.02;
Скачать: 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 вся ветка
Текущий архив: 2004.05.02;
Скачать: CL | DM;
Память: 0.47 MB
Время: 0.024 c
