![]() |
|
|
#1
|
|||
|
|||
![]() Здравствуйте! Вопрос: Есть авторизация программы, Логин и пароль и кнопка войти! Вот чтобы не тыкать постоянно мышкой на Войти как прописать это на кнопку Enter? Чтобы при нажатии на Enter нажимался Button?
Заранее спасибо! |
#2
|
||||
|
||||
![]() Код:
button1.Default := true; или в коде или в инспекторе объектов Нет повести печальнее на свете, чем повесть о заклиневшем Resete. ![]() |
#3
|
|||
|
|||
![]() В событие онкейпрес писать это?
|
#4
|
||||
|
||||
![]() нет, при показе формы. или лучше установи у кнопки это свойство в инспекторе объектов (свойство компонента)
Нет повести печальнее на свете, чем повесть о заклиневшем Resete. ![]() |
#5
|
|||
|
|||
![]() Default на него ошибка! Кнопка SpeedButton1 на нёё пробую!
|
#6
|
||||
|
||||
![]() ну уточнить надо было. Свойство default есть у TButton & TBitBtn. Может просто поставь другую кнопку?
или (любой из указанных способов подойдёт): Код:
... Form1.FeyPreview:=true; ... //первый procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState); begin if Key = VK_Return then ShowMessage('Enter pressed!'); end; //второй procedure TForm1.FormKeyPress(Sender: TObject; var Key: Char); begin if Ord(Key) = 13 then ShowMessage('Enter pressed!'); end; Нет повести печальнее на свете, чем повесть о заклиневшем Resete. ![]() |