| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

по нажатию клавиши ENTER из одной labelededit1 в другую labeleded [D6, WinXP]

Chak ©   (2005-06-05 08:56:00) 

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

---

heath   (2005-06-05 09:09:00) [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;

---

Наверх