Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2002.01.31;
Скачать: CL | DM;

Вниз

Как по нажатию на ENTER сделать переход с DBEditEh1 на DBEditEh2   Найти похожие ветки 

 
Jony   (2001-12-25 09:26) [0]

Из форума узнал, что переход между DBEdit по Enter как по Tab можно организовать следующим образом:

procedure Form1.Edit1KeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
if Key=VK_RETURN then begin
Perform(WM_NEXTDLGCTL, 0, 0);
Key:=0;
end;
end;

Очень удобно. А вот для DBEditEh такой номер не проходит. Почему? И что нужно сделать, чтобы прошло?


 
knyaz17   (2001-12-25 10:44) [1]

Помоему в OptionsEh есть опция EnterAsTab.


 
Jony   (2001-12-25 10:49) [2]

В DBGridEh - есть, а в DBEditEh - нет.


 
Desdechado   (2001-12-25 13:25) [3]

попробуй (не проверял)
if Key=VK_RETURN then
Key:=VK_TAB;



 
Jony   (2001-12-25 13:49) [4]

>Desdechado
Большое спасибо!
Пошло в связке

if Key=VK_RETURN then begin
Perform(WM_NEXTDLGCTL, 0, 0);
Key:=VK_TAB;
end;

Хотя внутри блока можно операторы поменять местами - эффект тот-же.


 
alina   (2001-12-26 12:14) [5]

procedure TEditLagerForm.PasportEditKeyPress(Sender: TObject;
var Key: Char);
begin
if key = #13 then DBEdit2.SetFocus;
end;


 
Jony   (2001-12-26 13:22) [6]

>alina
Можно и так, но если изменится последовательность расположения DBEdit на форме, то придется переписывать код. А выше предлагаемык варианты автоматически отследивают порядок элементов, уствновленный в TabOrder. Согласись, что это более удобно и именно это мне нужно было.
Все равно, спасибо.



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

Текущий архив: 2002.01.31;
Скачать: CL | DM;

Наверх




Память: 0.48 MB
Время: 0.01 c
4-100099
VanRain
2001-12-01 15:11
2002.01.31
Инфа по WinAPI


3-99861
Алексей Акиньхов
2001-12-26 14:34
2002.01.31
Преобразование dbf файлов


7-100091
ReNoiZer
2001-10-18 17:57
2002.01.31
Убедительная просьба к Mystic...


1-99942
boriska
2002-01-13 02:47
2002.01.31
обращение к именам


7-100086
Кенгуру
2001-10-14 16:58
2002.01.31
Как из Дельфи отследить нажатия на клавиши MIDI клавиатуры ?