![]() |
|
|
|
|
#1
|
|||
|
|||
|
Здравствуйте! Вопрос: Есть авторизация программы, Логин и пароль и кнопка войти! Вот чтобы не тыкать постоянно мышкой на Войти как прописать это на кнопку Enter? Чтобы при нажатии на Enter нажимался Button?
Заранее спасибо! |
|
#2
|
||||
|
||||
|
Код:
button1.Default := true; или в коде или в инспекторе объектов |
|
#3
|
|||
|
|||
|
В событие онкейпрес писать это?
|
|
#4
|
||||
|
||||
|
нет, при показе формы. или лучше установи у кнопки это свойство в инспекторе объектов (свойство компонента)
|
|
#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; |