Сочетание клавишь (Delphi) - Помощь студентам

VadEr · 30.05.2009, 13:57

Подскажите пожалуста как сделать, что бы форма реагировала на сочетание клавиш: Ctrl+R

На форуме что-то подобное нашел, но не работает:

Код:

procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
   if (Shift = ssCtrl) and (key=Word('R')) then
       Color := clRed;
end;

_Dmitry · 30.05.2009, 14:07

Код:

if (ssCtrl in Shift) and (key=ord('R')) then Color := clRed;

VadEr · 30.05.2009, 15:59

Спасибо помогло! Это работеет когда форма в фокусе. А как сфокусировать форму, если на ней 2 Edita, кнопка и ListBox?

DomiNick · 30.05.2009, 16:08

Попробуйте в свойствах формы поставить KeyPreview:=True

VadEr · 30.05.2009, 16:14

УРА! Заработало!

30.05.2009, 13:57	#1
VadEr Форумчанин Регистрация: 24.03.2009 Сообщений: 375	Сочетание клавишь (Delphi) Подскажите пожалуста как сделать, что бы форма реагировала на сочетание клавиш: Ctrl+R На форуме что-то подобное нашел, но не работает: Код: `procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState); begin if (Shift = ssCtrl) and (key=Word('R')) then Color := clRed; end;`

30.05.2009, 14:07	#2
_Dmitry Участник клуба Регистрация: 02.09.2007 Сообщений: 1,193	Код: `if (ssCtrl in Shift) and (key=ord('R')) then Color := clRed;`

30.05.2009, 16:08	#4
DomiNick Студент, не Старожил Регистрация: 29.01.2009 Сообщений: 2,067	Попробуйте в свойствах формы поставить KeyPreview:=True I am the First of Cyber Evolution... I am the First to Program your Future...

Похожие темы
Тема	Автор	Раздел	Ответов	Последнее сообщение
Сочетание типов TPicture и TBitmap	Alex Cones	Общие вопросы Delphi	3	29.04.2009 18:10
Сочетание клавиш	Malder	Общие вопросы .NET	0	19.01.2009 20:57
Сочетание клавиш CTRL+HOME	valerij	Microsoft Office Excel	2	18.08.2008 08:43
сочетание h1 и nobr - не работает.	Romanbl4	HTML и CSS	4	04.04.2008 20:19
Реакция на сочетание клавишь	micaell	Win Api	3	20.04.2007 02:13

30.05.2009, 15:59	#3
VadEr Форумчанин Регистрация: 24.03.2009 Сообщений: 375	Спасибо помогло! Это работеет когда форма в фокусе. А как сфокусировать форму, если на ней 2 Edita, кнопка и ListBox?

30.05.2009, 16:14	#5
VadEr Форумчанин Регистрация: 24.03.2009 Сообщений: 375	УРА! Заработало!