Горячие клавиши

@DarkDeivel · Регистрация: 15.07.2009

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

Здраствуйте уважаемые программисты!

У меня просьба, я вылаживаю исходники небольшой программки (делал не я) и хочу чтобы вы сделали в этой программе горячую кнопку. Чтобы при нажатии кнопки "H" появлялась другая форма (Form 1). И чтобы эта появившаяся форма была поверх всех окон, я может быть наглею но пожалуйста помогите и если можно распишите комментарии в исходнике чтобы я мог понять что и как.

Заранее спасибо не имеющее границ!

@Phantom · 16.07.2009, 20:35

Не получилось потому что опять нужно писать обработчик для ListBox, а не для формы.
Коды клавиш можно в гугле найти. Вот тут есть.

@DarkDeivel · 16.07.2009, 20:41 **[ТС]**

Все я сделал теперь все!!! Спасибо этому чудесному сайту! Теперь как захочу модифицировать сие творение опять обращусЬ! Еще раз спасибо!

@Vicont4063 · 13.05.2011, 14:16

У меня вопрос) как сделать горячую клавишу вне формы. Можете влесть в мой код и поменяв там как надо оставить коментарий?

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
rocedure TForm1.FormCreate(Sender: TObject);
begin
  keypreview:=True;
end;
 
procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
Begin
If key = vk_end then
begin
WindowName := FindWindow(nil,WindowTitle);
If WindowName = 0 then begin 
MessageDlg('Сначало запустите игру', mtwarning,[mbOK],0);
end;
ThreadId := GetWindowThreadProcessId(WindowName,@ProcessId);
HandleWindow := OpenProcess(PROCESS_ALL_ACCESS,False,ProcessId);
buf:=$1E;
WriteProcessMemory(HandleWindow, ptr(address), @buf, 4, write);
end;
end;

То есть при нажатии в не! формы на клавишу end будет срабатывать обработка.
Пишу трейнер, пару исходников нашел с разных программ, короче конструктор)))) Вот мне надо когда человек играет и нажимает end его значение в памяти меняется.
Заранее огромное спасибо!!!

@MsGuns · 13.05.2011, 17:00

Использование экшнов (TActionList - контейнер) - решает проблему на корню

@spydark91 · 13.05.2011, 17:49

объяснить пожалуйста строчку

Delphi
1
GetAsyncKeyState(72)=-32767

@Vicont4063 · 14.05.2011, 07:49

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

Использование экшнов (TActionList - контейнер) - решает проблему на корню

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

@Vicont4063 · 15.05.2011, 16:47

Всё не надо уже, таймер поставил. терь типо Автоматически нажимается.

Новые блоги и статьи Все статьи Все блоги /
Запустил конкурс "тем и промптов для текстовых квестов созданных почти чисто ИИ" Adler 06.10.2026 Всем привет! За последние три-четыре дня я создал более 16 текстовых квестовых игр используя преимущественно по одному запросу к ИИ на игру. Мне так понравилось смотреть все ветки/ сцены во всех. . .	ИИ не может найти нужный язык в списке Supersumestria 05.10.2026 Я ему даю вот такое изображение и прошу найти и подчеркнуть немецкий язык. Возвращает он вот это: https:/ / i. **********/ vqBWLe2. png Нужную строчку в 3й колонке просто выдумал. . Это. . .	Новая последняя моя музыка в SUNO zorxor 05.10.2026 Здравствуйте, дорогие мои друзья! С большой радостью я хотел бы представить вам свою новую последнею музыку, которую сгенерировала мне по моей просьбе нейросеть SUNO. С уважением, zorxor. Это. . .	Программный домашний кинотеатр russiannick 27.09.2026 Сподобился на программный домашний кинотеатр. В качестве ЯВУ по традиции выбрал js. В помощники взял Яндекс-Алису. Было создано три зала на разные интересы. исторические и ретро сериал Хичкок. . .
Беседа с ИИ о программистах, недопускающих к созданию и правке кода генеративные ИИ и причины этого zorxor 21.09.2026 Раньше я радовался или получал некоторые эмоции, пусть небольшие, но всё же, от самого процесса написания кода, рекомпиляции и запуска, видя постепенное развитие программы и прочее. А теперь лень. . .	Мобильное приложение ColorStep pavlinmavlin 17.09.2026 Реализовал приложение Красный, Зеленый, Синий в Unity3d + c#. Название изменил на ColorStep. Приложение прошло модерацию и теперь доступно для скачивания. Делал его сам, шаг за шагом — и вот,. . .	Запрет дублирования строк в табличной части Maks 13.09.2026 Реализация из решения ниже выполнена на нетиповом справочнике "Нормы ТО" с табличной часть "Виды ТО", разработанного в КА2, со следующими реквизитами: - ВидТО (СправочникСсылка. ВидыТО); - ВидГСМ. . .	Скрипты Tampermonkey для CyberForum, ChatGPT, Claude и пр. Jin X 06.09.2026 Скрипты Tampermonkey для CyberForum, ChatGPT, Claude и пр. Работая с форумом и нейросетями в браузере часто хочется что-то подкорректировать или добавить какого-то функционала. Ниже прикреплён. . .

@Phantom 3189 / 869 / 39 Регистрация: 29.12.2008 Сообщений: 951
	16.07.2009, 20:35
	Не получилось потому что опять нужно писать обработчик для ListBox, а не для формы. Коды клавиш можно в гугле найти. Вот тут есть. 1

@DarkDeivel 0 / 0 / 0 Регистрация: 15.07.2009 Сообщений: 13
	16.07.2009, 20:41 [ТС]
	Все я сделал теперь все!!! Спасибо этому чудесному сайту! Теперь как захочу модифицировать сие творение опять обращусЬ! Еще раз спасибо! 0

@MsGuns 1497 / 1238 / 245 Регистрация: 04.04.2011 Сообщений: 4,363
	13.05.2011, 17:00
	Использование экшнов (TActionList - контейнер) - решает проблему на корню 0

@Vicont4063 0 / 0 / 0 Регистрация: 13.05.2011 Сообщений: 4
	15.05.2011, 16:47
	Всё не надо уже, таймер поставил. терь типо Автоматически нажимается. 0