Главная страница
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.007 c
6-100027
Hawk
2001-11-06 19:44
2002.01.31
Как определить IP компа в интернете??


1-99960
Wizard
2002-01-11 14:17
2002.01.31
DCOM


1-99945
GovoRun
2002-01-13 23:34
2002.01.31
Создание MDIChild в run-time


4-100124
star
2001-11-28 12:35
2002.01.31
Клавиатурные шпионы ...


1-99932
Света Н.
2002-01-12 13:10
2002.01.31
Помогите правильно сделать отчет!!!!!