Одновременно (ALT+Shift+Enter)

@xxbesoxx · Регистрация: 13.02.2009

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

Здравствуйте ребята хочу что программа выполнил какой то действия по нажатию кнопки одновременно(ALT+Shift+Enter) и не получается помогите пожалуйста где ошибка

на пример что по нажатию кнопки одновременно(ALT+Shift+Enter) открывал отарой форма

procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
if ([ssShift] = Shift) and (Key = VK_RETURN) and ([ssCtrl] = Shift) then
form2.Show;
end;

@xxbesoxx · 31.01.2012, 23:10 **[ТС]**

Arcor Спасибо тебе и всех кто пытался меня помочь тема можно закрит !!!!

procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
if (ssShift in Shift) and (Key = VK_RETURN) and (ssCtrl in Shift) then
form2.Show;
end;

Так работает Ctrl+Shift+Enter месте Ctrl замена Alt это не проблема !!!!

Добавлено через 26 секунд
Тема можно закрит

Новые блоги и статьи Все статьи Все блоги /
Debian 13: Установка Lazarus QT5 ВитГо 09.05.2026 Эта инструкция моя компиляция инструкций volvo https:/ / www. cyberforum. ru/ blogs/ 203668/ 10753. html и его же старой инструкции по установке Lazarus с gtk2. . .	Нейросеть на алгоритме "эстафета хвоста" как перспектива. Hrethgir 06.05.2026 На десерт, когда запущу сервер. Статья тут https:/ / habr. com/ ru/ articles/ 1030914/ . Автор я сам, нейросеть только помогает в вопросах которые мне не известны - не знаю людей которые знали-бы. . .	Асинхронный приём данных из COM-порта Argus19 01.05.2026 Асинхронный приём данных из COM-порта Купил на aliexpress термопринтер QR701. Он оказался странным. Поключил к Arduino Nano. Был очень удивлён. Наотрез отказывается печатать русские буквы. Чтобы. . .	попытка написать игровой сервер на C++ pyirrlicht 29.04.2026 попытка написать игровой сервер на плюсах с открытым бесконечным миром. возможно получится прикрутить интерпретатор питон для кастомизации игровой логики. что есть на текущий момент:. . .
Контроль уникальности выбранного документа-основания при изменении реквизита Maks 28.04.2026 Алгоритм из решения ниже разработан на примере нетипового документа "ЗаявкаНаРемонтСпецтехники", разработанного в КА2. Задача: уведомлять пользователя, если указанная заявка (документ-основание). . .	Благородство как наказание Maks 24.04.2026 У хорошего человека отношения с женщинами всегда складываются трудно. А я человек хороший. Заявляю без тени смущения, потому что гордиться тут нечем. От хорошего человека ждут соответствующего. . .	Валидация и контроль данных табличной части документа перед записью Maks 22.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа, разработанного в КА2. Задача: контроль и валидация данных табличной части документа перед записью с учетом регламента компании. . .	Отчёт о затраченных материалах за определенный период с макетом печатной формы Maks 21.04.2026 Отчёт из решения ниже размещён в конфигурации КА2. Задача: разработка отчёта по затраченным материалам за определённый период, с возможностью вывода печатной формы отчёта с шапкой и подвалом. В. . .

@xxbesoxx 1135 / 616 / 129 Регистрация: 13.02.2009 Сообщений: 3,604

	Одновременно (ALT+Shift+Enter) 31.01.2012, 15:37. Показов 5185. Ответов 20 Метки нет (Все метки) Здравствуйте ребята хочу что программа выполнил какой то действия по нажатию кнопки одновременно(ALT+Shift+Enter) и не получается помогите пожалуйста где ошибка на пример что по нажатию кнопки одновременно(ALT+Shift+Enter) открывал отарой форма procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState); begin if ([ssShift] = Shift) and (Key = VK_RETURN) and ([ssCtrl] = Shift) then form2.Show; end; 0

@xxbesoxx 1135 / 616 / 129 Регистрация: 13.02.2009 Сообщений: 3,604
	31.01.2012, 23:10 [ТС]
	Arcor Спасибо тебе и всех кто пытался меня помочь тема можно закрит !!!! procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState); begin if (ssShift in Shift) and (Key = VK_RETURN) and (ssCtrl in Shift) then form2.Show; end; Так работает Ctrl+Shift+Enter месте Ctrl замена Alt это не проблема !!!! Добавлено через 26 секунд Тема можно закрит 0