событие при нажатии Alt+Enter - Общие вопросы Delphi

xpams · 08.12.2011, 21:16

Надо чтобы если курсор находится в мемо1 то при нажатии Alt+Enter нажималась button1

3D Hunter · 08.12.2011, 21:45

Пишем аську?

Код:

procedure TForm2.Memo1KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if (ssAlt in Shift) and (Key=VK_RETURN) then Button1Click(nil);
end;

FaTaL · 09.12.2011, 10:58

Но правильнее будет зарегистрировать горячие клавиши.

chertovich · 09.12.2011, 12:02

Цитата:

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

Но правильнее будет зарегистрировать горячие клавиши.

Нет, не будет правильно. Если фокус будет у другого контрола, то будет срабатывать эта подпрограмма.

FaTaL · 09.12.2011, 13:16

Цитата:

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

Нет, не будет правильно. Если фокус будет у другого контрола, то будет срабатывать эта подпрограмма.

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

xxbesoxx · 02.02.2012, 01:29

Здравствуйте извиняюсь что чужои теме но пожалуйста если можите помочь
как будет Alt+Shift+Enter

if (ssAlt in Shift) and (Key = VK_RETURN) and (ssCtrl in Shift) then
form2.Show;
пишу так и не работает

08.12.2011, 21:16	#1
xpams Пользователь Регистрация: 16.09.2011 Сообщений: 43	событие при нажатии Alt+Enter Надо чтобы если курсор находится в мемо1 то при нажатии Alt+Enter нажималась button1

08.12.2011, 21:45	#2
3D Hunter Сумрачная тень Форумчанин Регистрация: 05.03.2009 Сообщений: 689	Пишем аську? Код: `procedure TForm2.Memo1KeyDown(Sender: TObject; var Key: Word; Shift: TShiftState); begin if (ssAlt in Shift) and (Key=VK_RETURN) then Button1Click(nil); end;` "ковыряю изнутри" (с)

02.02.2012, 01:29	#6
xxbesoxx Участник клуба Регистрация: 10.08.2010 Сообщений: 1,389	Здравствуйте извиняюсь что чужои теме но пожалуйста если можите помочь как будет Alt+Shift+Enter if (ssAlt in Shift) and (Key = VK_RETURN) and (ssCtrl in Shift) then form2.Show; пишу так и не работает E_MAIL: rijgvina7@yahoo.com

Похожие темы
Тема	Автор	Раздел	Ответов	Последнее сообщение
C++ Как выйти из цикла при нажатии enter?	Seede1	Помощь студентам	2	06.12.2011 14:50
Идиотский звук при нажатии enter у TEdit	Crystallon	Общие вопросы Delphi	3	22.06.2011 07:33
Событие при нажатии на клавиатуру	BuT@JL	Общие вопросы Delphi	8	26.06.2009 11:27
При нажатии enter запускалась процедура	Rusl92	Общие вопросы Delphi	9	01.10.2008 09:33
Событие при нажатии клавиши Enter	Inbox	Общие вопросы Delphi	4	12.06.2007 14:18

09.12.2011, 10:58	#3
FaTaL Участник клуба Регистрация: 09.11.2007 Сообщений: 1,761	Но правильнее будет зарегистрировать горячие клавиши.