Вызов процедудры по нажатию Enter

@Rodogosl · Регистрация: 02.12.2014

Author24 — интернет-сервис помощи студентам

Уважаемые не могу понять свою ошибку.
// На форме авторизации при нажатии Enter нужно что бы вызывалась процедура BitBtn1.Click

Delphi

procedure TFormAvtoriz.FormKeyUp(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
if Key=#13 then BitBtn1.Click;
end;

нов тело процедуры получаю ошибку (incompatible types)
подскажите где косяк.

@northener · 15.04.2015, 00:38

Delphi

1	if Key=13 then BitBtn1.Click;

@droider · 15.04.2015, 01:09

Rodogosl,

Delphi

procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word; //обработчик нажатия
  Shift: TShiftState);
begin
if Key=VK_RETURN then BitBtn1.Click; //клавиша Enter - VK_RETURN
end;

Еще лучше вызывайте процедуру отдельно, а не по нажатии кнопки.

@northener · 15.04.2015, 02:08

Сообщение от droider

Еще лучше вызывайте процедуру отдельно, а не по нажатии кнопки.

"Раз уж пошла такая пьянка", то
TCustomButton.Default
вполне способно помочь ОРД.

@xxbesoxx · 15.04.2015, 10:25

Я бы делал так ..... При нажатие Enter из Edit_Login--переход на Edit_Password и если курсор на Edit_Pass то, при нажатие Enter Button_Vxod.Chick

Delphi

procedure TfrmMain.FormShortCut(var Msg: TWMKey; var Handled: Boolean);
begin
if Msg.CharCode = 13 then
  begin
     if edtLogin.Focused then
     begin
        edtPassword.SetFocus;
        Handled := True;
     end
       else
     if edtPassword.Focused then
     begin
        sbtbtnVxod.Click;
        Handled := True;
     end
  end;
end;

@northener пофигист широкого профиля 4732 / 3167 / 858 Регистрация: 15.07.2013 Сообщений: 18,251
	15.04.2015, 02:08	4
	Сообщение от droider Еще лучше вызывайте процедуру отдельно, а не по нажатии кнопки. "Раз уж пошла такая пьянка", то TCustomButton.Default вполне способно помочь ОРД. 0

	15.04.2015, 10:25