по нажатию клавиши 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;

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