FAQ - Как сделать так, что при нажатии на Enter происходил переход к следующему элементу формы
Как сделать так, что при нажатии на Enter происходил переход к следующему элементу формы
Ставите у формы KeyPreview = true и создаете событие KeyPress следующего вида:
procedure TForm1.FormKeyPress(Sender: TObject; var Key: Char); begin if (Key = #13) then begin Key:=#0; Perform(WM_NEXTDLGCTL,0,0); end; end;
Оставить комментарий
Комментарии
1.
11 января 2006, 17:06:24
if key=#13 then edit1.setfocus