Главная страница
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.009 c
1-100002
Илья
2002-01-15 09:48
2002.01.31
RichEditControl


3-99886
alina
2001-12-26 11:54
2002.01.31
Параметры драйвера


1-99965
Aleksandr
2002-01-14 11:12
2002.01.31
Проекция объектов


1-99941
Yakudza
2002-01-12 16:22
2002.01.31
Как добавить символ табуляции в строку ?


14-100040
panov
2001-12-06 12:57
2002.01.31
>Merlin