Перехват нажатия клафиш

← →
Sapos © (2007-05-04 16:15) [0]

Напомните, пожалуйста, как мне перехватить нажатие клафиши Enter и какие методы для этого используются?

← →
DVM © (2007-05-04 16:20) [1]

где перехватить?

← →
Sapos © (2007-05-04 16:28) [2]

В общем мне нужно, чтобы после ввода текста в Edit после нажатия Enter выполнялось нажатие кнопки Button1

← →
{RASkov} © (2007-05-04 16:31) [3]

> [2] Sapos © (04.05.07 16:28)

procedure EditKeyPress();
begin
if Key=#13 then Button.Click;
end;

← →
DimaBr © (2007-05-04 16:32) [4]

procedure TForm1.Edit1KeyUp(Sender: TObject; var Key: Word; Shift: TShiftState); begin if Key = VK_Return then Button1.Click; end;

← →
DimaBr © (2007-05-04 16:33) [5]

Саша, завтра 13 будет не туда куда сегодня

← →
Sapos © (2007-05-04 16:35) [6]

Спасибо!

← →
Kostafey © (2007-05-04 16:36) [7]

> завтра 13 будет не туда куда сегодня

Так оно ведь не первый год 13.

← →
DimaBr © (2007-05-04 16:38) [8]

> Так оно ведь не первый год 13.

И что ?

← →
{RASkov} © (2007-05-04 16:39) [9]

> [5] DimaBr © (04.05.07 16:33)
> завтра 13 будет не туда куда сегодня

С чего бы это? ;) Клаву менять?

← →
Kostafey © (2007-05-04 16:41) [10]

> И что ?

Так ведь стандарт есть.
У кого ж рука поднимется его менять?

← →
{RASkov} © (2007-05-04 16:47) [11]

> [5] DimaBr © (04.05.07 16:33)

Тады:
procedure EditKeyPress(); begin if Key=CHR(VK_Return) then Button.Click; end;
;) шучу.

← →
DimaBr © (2007-05-04 16:51) [12]

> У кого ж рука поднимется его менять?

Всё рано или поздно меняется, все проходит пройдёт и это....

По крайней мере код
if Key = VK_Return then Button1.Click;
читается значительно лучше чем
if Key=#13 then Button.Click;

Исходя из ваших соображений следует писать так ?

case Key of 13: Button1.Click; 27: ----- 125: --- 231: ---- 8: ---- end;

← →
DimaBr © (2007-05-04 16:53) [13]

> {RASkov} © (04.05.07 16:47) [11]

Не, не так.
if ord(Key) = VK_Return then Button.Click;

← →
{RASkov} © (2007-05-04 16:56) [14]

> [13] DimaBr © (04.05.07 16:53)

;) Ну это в другом обработчике.... не в "моем"...

> Саша, завтра 13 будет не туда куда сегодня

Не будет

> Исходя из ваших соображений следует писать так ?
>
>
> case Key of
> 13: Button1.Click;
> 27: -----
> 125: ---
> 231: ----
> 8: ----
> end;

Нет. У меня был пример с одной "константой", поэтому так жестко, а вообще, конечно, лучше пользовать именованные константы.

> Sapos © (04.05.07 16:28) [2]

> В общем мне нужно, чтобы после ввода текста в Edit после
> нажатия Enter выполнялось нажатие кнопки Button1

Button1.Default := True;

--
Regards, LVT.

> [18] Leonid Troyanovsky © (05.05.07 10:07)

Не прокатит если на этой же форме есть Edit2 и Button2
И соответственно им нужно такое же действо.
:)

> По крайней мере код
> if Key = VK_Return then Button1.Click;
> читается значительно лучше чем
> if Key=#13 then Button.Click;

Спорный вопрос.

Перехват нажатия клафиш Найти похожие ветки