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

Вниз

по нажатию клавиши ENTER из одной labelededit1 в другую labeleded   Найти похожие ветки 

← →
Chak   (2005-06-05 08:56) [0]

Подскажите как организовать переход по нажатию клавиши ENTER из одной labelededit1 в другую labelededit2.
Спасибо

---

← →
heath ©   (2005-06-05 09:09) [1]

Задай этот обработчик обоим элементам LabeledEdit1 и 2 .KeyDown := LabeledEdit1And2KeyDown

procedure TForm1.LabeledEdit1And2KeyDown(Sender: TObject; var Key: Word;
 Shift: TShiftState);
begin
 if Key = VK_RETURN then
 //SelectNext(TWinControl(Sender),True,False);
   if Sender = LabeledEdit1 then
     LabeledEdit2.SetFocus
   else
     LabeledEdit1.SetFocus
end;

---

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

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

Наверх

Память: 0.46 MB
Время: 0.068 c