Одно действие для нескольких форм

@2serg1 · Регистрация: 05.05.2013

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

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

Вот код для клавише "Enter" сделал на первой форме.

Delphi
1
2
3
4
5
6
procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if Key = VK_RETURN then BitBtn1.Click;
 
end;

@mss · 13.06.2013, 20:41

Сообщение от 2serg1

одно действие для нескольких форм

Прямая дорога в наследование - один из 3-х китов, на которых стоит ООП.

@2serg1 · 13.06.2013, 20:47 **[ТС]**

На мелкий код надежды нет?

@FIL · 13.06.2013, 20:49

Delphi
1
2
3
4
5
procedure TForm1.FormShortCut(var Msg: TWMKey; var Handled: Boolean);
begin
  Handled := True;
  if Msg.CharCode = VK_F1 then <действие>;
end;

@mss · 13.06.2013, 20:51

Сообщение от 2serg1

На мелкий код надежды нет?

"Мелкий" - понятие растяжимое..
Кому и кобыла невеста, кому и дом сарай)

@2serg1 · 13.06.2013, 20:54 **[ТС]**

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

procedure TForm1.FormShortCut(var Msg: TWMKey; var Handled: Boolean); begin Handled := True; if Msg.CharCode = VK_F1 then BitBtn1.Click; end;

Это код получается только для одной формы?

@FIL · 13.06.2013, 21:01

Сообщение от 2serg1

Это код получается только для одной формы?

Нет, для всех.

@2serg1 · 13.06.2013, 21:03 **[ТС]**

Я имею ввиду, что на каждой форме необходимо добавлять такое событие?

@FIL · 13.06.2013, 21:04

Сообщение от 2serg1

Я имею ввиду, что на каждой форме необходимо добавлять такое событие?

Нет, только на главной.

@2serg1 · 13.06.2013, 21:14 **[ТС]**

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

Нет, только на главной.

Добавил этот код и вот что получилось:
1) На форме происходит блокировка ввода в поле edit
2) На других формах по нажатию F1 ничего не происходит

@FIL · 13.06.2013, 21:28

Код покажи

@mss · 13.06.2013, 21:34

Этого следовало ожидать, ибо тупое бездумное втыкание невесть в какую дыру выклянченного кода и должно возыметь именно такой результат.

@FIL · 13.06.2013, 21:38

Немного подправил. Выкладываю рабочий пример:

@2serg1 · 13.06.2013, 21:39 **[ТС]**

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

Этого следовало ожидать, ибо тупое бездумное втыкание невесть в какую дыру выклянченного кода и должно возыметь именно такой результат.

Программа просто доделана и было не мало потрачено на нее сил и времени. Поэтому и последовал вопрос с с целью помощи, а не изучения.

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

Код покажи

procedure TForm1.FormShortCut(var Msg: TWMKey; var Handled: Boolean);
begin
Handled := True;
if Msg.CharCode = VK_F1 then ShowMessage('');
end;

@mss · 13.06.2013, 21:49

Сообщение от 2serg1

с целью помощи, а не изучения

Нихрена себе заява)
Мол, помоги мне - докопай-ка за меня яму по самые нехочу глубиной, а то я знаю только как копать ее до поколено, а дальше не знаю и знать не хочу, и копать тоже не желаю)

@2serg1 · 13.06.2013, 21:55 **[ТС]**

mss, я же вас не заставляю просматривать эту тему, помогать и все в этом духе. Вы подали идею я ее не принял, так как ночью изучать целую тему ради маленького удобства пользователю мне нет желания.

@mss · 13.06.2013, 22:00

Сообщение от 2serg1

я же вас не заставляю просматривать эту тему, помогать и все в этом духе

Так ведь я ничего "в этом духе"и не делаю.

@саша40 · 13.06.2013, 22:35

Delphi
1
if key=VK_F1 then Form1.BitBtn1.Click;

Дальше создаешь события KeyPress или KeyDown у других форм и прописываешь туда код выше.

@2serg1 · 13.06.2013, 22:57 **[ТС]**

Сообщение от саша40

Дальше создаешь события KeyPress или KeyDown у других форм и прописываешь туда код выше

Это то я знаю как сделать. Проблема то не в том, чтобы написать один и тот же код по несколько раз

@chizz · 14.06.2013, 10:05

Сообщение от 2serg1

Это то я знаю как сделать. Проблема то не в том, чтобы написать один и тот же код по несколько раз

Тебе в любом случае надо будет указывать события KeyPress или KeyDown.
в главной форме можно пробежать все существующие формы в проекте и присвоить им всем onKeyPress = FormShortCut

Новые блоги и статьи Все статьи Все блоги /
SDL3 для Web (WebAssembly): Основы отладки веб-приложений на SDL3 по USB и Wi-Fi, запущенных в браузере мобильных устройств 8Observer8 07.02.2026 Содержание блога Браузер Chrome имеет средства для отладки мобильных веб-приложений по USB. В этой пошаговой инструкции ограничимся работой с консолью. Вывод в консоль - это часть процесса. . .	SDL3 для Web (WebAssembly): Обработчик клика мыши в браузере ПК и касания экрана в браузере на мобильном устройстве 8Observer8 02.02.2026 Содержание блога Для начала пошагово создадим рабочий пример для подготовки к экспериментам в браузере ПК и в браузере мобильного устройства. Потом напишем обработчик клика мыши и обработчик. . .	Философия технологии iceja 01.02.2026 На мой взгляд у человека в технических проектах остается роль генерального директора. Все остальное нейронки делают уже лучше человека. Они не могут нести предпринимательские риски, не могут. . .	SDL3 для Web (WebAssembly): Вывод текста со шрифтом TTF с помощью SDL3_ttf 8Observer8 01.02.2026 Содержание блога В этой пошаговой инструкции создадим с нуля веб-приложение, которое выводит текст в окне браузера. Запустим на Android на локальном сервере. Загрузим Release на бесплатный. . .
SDL3 для Web (WebAssembly): Сборка C/C++ проекта из консоли 8Observer8 30.01.2026 Содержание блога Если вы откроете примеры для начинающих на официальном репозитории SDL3 в папке: examples, то вы увидите, что все примеры используют следующие четыре обязательные функции, а. . .	SDL3 для Web (WebAssembly): Установка Emscripten SDK (emsdk) и CMake для сборки C и C++ приложений в Wasm 8Observer8 30.01.2026 Содержание блога Для того чтобы скачать Emscripten SDK (emsdk) необходимо сначало скачать и уставить Git: Install for Windows. Следуйте стандартной процедуре установки Git через установщик. . . .	SDL3 для Android: Подключение Box2D v3, физика и отрисовка коллайдеров 8Observer8 29.01.2026 Содержание блога Box2D - это библиотека для 2D физики для анимаций и игр. С её помощью можно определять были ли коллизии между конкретными объектами. Версия v3 была полностью переписана на Си, в. . .	Инструменты COM: Сохранение данный из VARIANT в файл и загрузка из файла в VARIANT bedvit 28.01.2026 Сохранение базовых типов COM и массивов (одномерных или двухмерных) любой вложенности (деревья) в файл, с возможностью выбора алгоритмов сжатия и шифрования. Часть библиотеки BedvitCOM Использованы. . .

@2serg1 0 / 0 / 1 Регистрация: 05.05.2013 Сообщений: 158
	13.06.2013, 20:47 [ТС]
	На мелкий код надежды нет? 0

@2serg1 0 / 0 / 1 Регистрация: 05.05.2013 Сообщений: 158
	13.06.2013, 21:03 [ТС]
	Я имею ввиду, что на каждой форме необходимо добавлять такое событие? 0

@FIL Модератор 3492 / 2614 / 742 Регистрация: 19.09.2012 Сообщений: 7,977
	13.06.2013, 21:28
	Код покажи 0

@mss 3530 / 2270 / 279 Регистрация: 24.12.2010 Сообщений: 13,723
	13.06.2013, 21:34
	Этого следовало ожидать, ибо тупое бездумное втыкание невесть в какую дыру выклянченного кода и должно возыметь именно такой результат. 0

@2serg1 0 / 0 / 1 Регистрация: 05.05.2013 Сообщений: 158
	13.06.2013, 21:55 [ТС]
	mss, я же вас не заставляю просматривать эту тему, помогать и все в этом духе. Вы подали идею я ее не принял, так как ночью изучать целую тему ради маленького удобства пользователю мне нет желания. 0