Форум: "Основная";
Текущий архив: 2005.06.29;
Скачать: [xml.tar.bz2];

Вниз

по нажатию клавиши 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;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.44 MB
Время: 0.037 c