действия на кнопки клавиатуры в Delphi - Помощь студентам

TaYgA · 20.12.2009, 19:46

Всем доброго времени суток. Подскажите пожалуйсто, как писать действия на кнопки клавиатуры? Мне нужно чтоб при нажатии кнопки F1 открывалясь другая форма.

doniyor · 20.12.2009, 20:11

Ставишь св-во формы KeyPreview:=true
Потом пишеш на событие OnKeyPress

Код:

if key VK_[код клавиши] then [некое действие]

tiger · 20.12.2009, 20:16

Цитата:

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

Всем доброго времени суток. Подскажите пожалуйсто, как писать действия на кнопки клавиатуры? Мне нужно чтоб при нажатии кнопки F1 открывалясь другая форма.

обработка события keypressed своей формы. там например пишешь:

Код:

case key of
#13:Form2.ShowModal;
end;

где #13 - код клавиши Enter меняешь на любой

Levsha100 · 20.12.2009, 20:25

Или хук...

TaYgA · 20.12.2009, 22:23

А где можно найти код клавишь?!?! Подскажите пожалуйсто код кнопки F1

NetSpace · 20.12.2009, 22:28

Код:

var Key:Char;
if(Key=VK_F1)then ...//тут что-то делаем

TaYgA · 22.12.2009, 22:06

А если у меня на форме есть уже кнопка TButton, как это же действия присвоить и кнопки клавиатуры?!?

AlexanderKs · 22.12.2009, 22:42

Нажатие клавиш клавиатуры можно обрабатывать через TMessage. Для этого в разделе private необходимо объявить процедуру:

Код:

 private
    procedure AppMessage(var Msg: TMsg; var Handled: Boolean);

Нажимаем Ctrl+Shift+C..

Код:

procedure TForm1.AppMessage(var Msg: TMsg; var Handled: Boolean);
begin
  if (Msg.wParam = VK_F1) then begin
     .... // код
     Handled := true;
  end;
end;

Данный метод может не пройти из за антивируса.

TaYgA · 22.12.2009, 22:46

AlexanderKs, сейчас чуть-чуть другой вопрос. Если Вам не понятно я поясню. Как можно объеденить кнопку TButton и клавишу клавиатуры, чтоб не писать по десять раз один и тот же код.

AlexanderKs · 22.12.2009, 22:49

Использовать код Button при нажатии клавиши клавиатуры? Вызвать Button1.Click; в обработчике клавиши клавиатуры.

20.12.2009, 20:11	#2
doniyor Форумчанин Регистрация: 22.04.2008 Сообщений: 143	Ставишь св-во формы KeyPreview:=true Потом пишеш на событие OnKeyPress Код: `if key VK_[код клавиши] then [некое действие]` Мой сайт - www.fortis-soft.narod.ru

20.12.2009, 22:28	#6
NetSpace Участник клуба Регистрация: 03.06.2009 Сообщений: 1,814	Код: `var Key:Char; if(Key=VK_F1)then ...//тут что-то делаем` Программирование - это единственный способ заставить компьютер делать то, что тебе хочется, а не то, что приходится.

22.12.2009, 22:42	#8
AlexanderKs Пользователь Регистрация: 26.02.2009 Сообщений: 60	Нажатие клавиш клавиатуры можно обрабатывать через TMessage. Для этого в разделе private необходимо объявить процедуру: Код: `private procedure AppMessage(var Msg: TMsg; var Handled: Boolean);` Нажимаем Ctrl+Shift+C.. Код: `procedure TForm1.AppMessage(var Msg: TMsg; var Handled: Boolean); begin if (Msg.wParam = VK_F1) then begin .... // код Handled := true; end; end;` Данный метод может не пройти из за антивируса. Последний раз редактировалось AlexanderKs; 22.12.2009 в 22:52.

Похожие темы
Тема	Автор	Раздел	Ответов	Последнее сообщение
Действия над матрицами. (Delphi)	ekzobyte	Помощь студентам	1	20.05.2009 20:52
Delphi 7. Действия с матрицами. прога маленькая, но не понятно в чём баг.	gonf	Помощь студентам	3	24.04.2009 17:34
как вызвать по нажатию кнопки меню настройки клавиатуры, мыши, монитора	1234	Общие вопросы Delphi	2	10.09.2008 16:52
триггерные кнопки и кнопки переключатели в DELPHI	MARGO	Помощь студентам	3	12.11.2007 17:35
Выбор действия кнопки	Micha	Компоненты Delphi	3	07.10.2007 11:17

20.12.2009, 19:46	#1
TaYgA Форумчанин Регистрация: 24.09.2009 Сообщений: 264	действия на кнопки клавиатуры в Delphi Всем доброго времени суток. Подскажите пожалуйсто, как писать действия на кнопки клавиатуры? Мне нужно чтоб при нажатии кнопки F1 открывалясь другая форма.

20.12.2009, 20:25	#4
Levsha100 Заблокирован Старожил Регистрация: 20.07.2008 Сообщений: 4,032	Или хук...

20.12.2009, 22:23	#5
TaYgA Форумчанин Регистрация: 24.09.2009 Сообщений: 264	А где можно найти код клавишь?!?! Подскажите пожалуйсто код кнопки F1

22.12.2009, 22:06	#7
TaYgA Форумчанин Регистрация: 24.09.2009 Сообщений: 264	А если у меня на форме есть уже кнопка TButton, как это же действия присвоить и кнопки клавиатуры?!?

22.12.2009, 22:46	#9
TaYgA Форумчанин Регистрация: 24.09.2009 Сообщений: 264	AlexanderKs, сейчас чуть-чуть другой вопрос. Если Вам не понятно я поясню. Как можно объеденить кнопку TButton и клавишу клавиатуры, чтоб не писать по десять раз один и тот же код.

22.12.2009, 22:49	#10
AlexanderKs Пользователь Регистрация: 26.02.2009 Сообщений: 60	Использовать код Button при нажатии клавиши клавиатуры? Вызвать Button1.Click; в обработчике клавиши клавиатуры.