169 похожих чатов

React — русскоговорящее с... React — русскоговорящее с...
Android Developers Android Developers
Python Python
Vue.js — русскоговорящее ... Vue.js — русскоговорящее ...
supapro.cxx supapro.cxx
DotNetRuChat DotNetRuChat
GNU/Linux Help GNU/Linux Help
Telegram Developers Telegram Developers
Node.js — русскоговорящее... Node.js — русскоговорящее...
DevOps — русскоговорящее ... DevOps — русскоговорящее ...
JavaScript Noobs — сообще... JavaScript Noobs — сообще...
Django [ru] Django [ru]
Go-go! Go-go!
Angular - русскоговорящее... Angular - русскоговорящее...
ntwrk ntwrk
Верстка сайтов HTML/CSS/J... Верстка сайтов HTML/CSS/J...
phpGeeks phpGeeks
Kubernetes — русскоговоря... Kubernetes — русскоговоря...
Битрикс для разработчиков Битрикс для разработчиков
MODX. Русскоязычное сообщ... MODX. Русскоязычное сообщ...
pgsql – PostgreSQL pgsql – PostgreSQL
Laravel Pro Laravel Pro
iOS Developers — русского... iOS Developers — русского...
ClickHouse не тормозит ClickHouse не тормозит
Rust — русскоговорящее со... Rust — русскоговорящее со...
JavaScript — русскоговоря... JavaScript — русскоговоря...
С# С#
pro.cxx pro.cxx
pro.jvm pro.jvm
React Native — русскогово... React Native — русскогово...
Devs Chat Devs Chat
Docker — русскоговорящее ... Docker — русскоговорящее ...
HTML/CSS — русскоговоряще... HTML/CSS — русскоговоряще...
Python beginners Python beginners
🐧 RU.UBUNTU — Официальное... 🐧 RU.UBUNTU — Официальное...
Kotlin Community Kotlin Community
Embedded Group Embedded Group
Чат экстремального погром... Чат экстремального погром...
aiogram aiogram
Scala User Group Scala User Group
Haskell Haskell
PHP PHP
TypeScript TypeScript
Клуб Vue.js-разработчиков Клуб Vue.js-разработчиков
Xamarin Developers (MAUI,... Xamarin Developers (MAUI,...
F# Chat F# Chat
Svelte [svelt] - All abou... Svelte [svelt] - All abou...
Системное администрирован... Системное администрирован...
Nuxt.js | Vue SSR Nuxt.js | Vue SSR
var chat = new Chat(); var chat = new Chat();
Data Science Chat Data Science Chat
Ассемблер Ассемблер
Android Architecture Android Architecture
Laravel для начинающих Laravel для начинающих
Церковь метрик Церковь метрик
Dart & Flutter Dart & Flutter
QA — русскоговорящее сооб... QA — русскоговорящее сооб...
Tarantool Tarantool
pro.elixir pro.elixir
Python Flask Python Flask
SAP ABAP SAP ABAP
R (язык программирования) R (язык программирования)
learn.java learn.java
DevsHelper DevsHelper
Big Data Science :: AI / ... Big Data Science :: AI / ...
SwiftBook SwiftBook
Delphi & Lazarus Delphi & Lazarus
Solidity Development Solidity Development
Evolution CMS официальное... Evolution CMS официальное...
pro.net (former COM+) pro.net (former COM+)
OpenStreetMap RU OpenStreetMap RU
Visual Studio Code — русс... Visual Studio Code — русс...
ru_mysql ru_mysql
pro.lua pro.lua
Dart / Flutter Dart / Flutter
GraphQL — русскоговорящее... GraphQL — русскоговорящее...
pro.Asm pro.Asm
OpenCartForum - 🇺🇦🇪🇺Чат O... OpenCartForum - 🇺🇦🇪🇺Чат O...
IDE и редакторы — русског... IDE и редакторы — русског...
Angular.js (1.x) — русско... Angular.js (1.x) — русско...
Frontend_ru Frontend_ru
Lame C Lame C
Flutter Developers — русс... Flutter Developers — русс...
AutoIT RU AutoIT RU
AI / Искусственный Интелл... AI / Искусственный Интелл...
dlang.ru dlang.ru
Laravel Framework Russian... Laravel Framework Russian...
WebPwnChat WebPwnChat
Чат — Верстка Сайтов и Фр... Чат — Верстка Сайтов и Фр...
pro.python pro.python
Java Underground Java Underground
Natural Language Processi... Natural Language Processi...
javascript_ru javascript_ru
SqlCom.ru - сообщество MS... SqlCom.ru - сообщество MS...
Cinema 4D Cinema 4D
pro.vim pro.vim
Delphi Community Delphi Community
Server Side Swift Develop... Server Side Swift Develop...
Autohotkey_RU ( v1 & v2 ) Autohotkey_RU ( v1 & v2 )
PHP DevConf KZ🇰🇿 PHP DevConf KZ🇰🇿
pro.rb (Ruby/Rails / RU) pro.rb (Ruby/Rails / RU)
RubyRush.ru RubyRush.ru
Modern::Perl Modern::Perl
Oracle RU Oracle RU
DevOps DevOps
ru.nim.talks ru.nim.talks
Odoo talks & fun Odoo talks & fun
Software Design/Architect... Software Design/Architect...
sql_ninja sql_ninja
AndroidDev Pro:: Професси... AndroidDev Pro:: Професси...
WordPress for developers WordPress for developers
PowerShellRus - о Powersh... PowerShellRus - о Powersh...
Эльбрусы и с чем их едят Эльбрусы и с чем их едят
Java/Kotlin and more Java/Kotlin and more
Haskell Start Haskell Start
pro.buildsystems pro.buildsystems
Powershell Rus Powershell Rus
Python для анализа данных Python для анализа данных
ErlangRus ErlangRus
Скрипты Гугл, Таблицы, Go... Скрипты Гугл, Таблицы, Go...
WebGL ru WebGL ru
Compiler Development Compiler Development
firebase_ru — русскоговор... firebase_ru — русскоговор...
phpclub.ru phpclub.ru
Electron.js Electron.js
RU.CRYPTOGRAPHY — Криптог... RU.CRYPTOGRAPHY — Криптог...
MySQL MySQL
pro.osdev - os developmen... pro.osdev - os developmen...
QA juniors QA juniors
GameDev for Web GameDev for Web
Lame C++ Lame C++
Go Get A Job Go Get A Job
PostgreSQL (English) PostgreSQL (English)
Ember_js Ember_js
Tilda Developers Tilda Developers
RU.Docker — Официальное Р... RU.Docker — Официальное Р...
Emacs — русскоговорящее с... Emacs — русскоговорящее с...
FreePascal & Lazarus FreePascal & Lazarus
WordPress – русскоговорящ... WordPress – русскоговорящ...
Язык программирования Jul... Язык программирования Jul...
Django Django
sentry_ru sentry_ru
ReasonML и OCaml ReasonML и OCaml
WebAssembly — русскоговор... WebAssembly — русскоговор...
ansible — русскоговорящее... ansible — русскоговорящее...
Сrystal Lang — русскогово... Сrystal Lang — русскогово...
aiohttp aiohttp
Clojure — русскоговорящее... Clojure — русскоговорящее...
heroku_ru heroku_ru
PowerShell Pro PowerShell Pro
macOS Developers — русско... macOS Developers — русско...
systemd systemd
use Perl or die; use Perl or die;
FORTH и родственные ЯП FORTH и родственные ЯП
Natural Language Processi... Natural Language Processi...
ru_jenkins ru_jenkins
CatBoost CatBoost
CyberBiology CyberBiology
Sequelize - community (en... Sequelize - community (en...
sonarqube_ru sonarqube_ru
Elm Lang сообщество разра... Elm Lang сообщество разра...
SublimeText_RU SublimeText_RU
NativeScript NativeScript
WordPress CodeRun WordPress CodeRun
ReactiveX - русскоговорящ... ReactiveX - русскоговорящ...
PureScript — русскоговоря... PureScript — русскоговоря...
#Вайти #Вайти
Эликсир и Вунш Эликсир и Вунш
Cassandra Cassandra
Delphi & Lazarus Delphi & Lazarus
Олег-Гранишевский

Всем привет! Использую кастомное модальное диалоговое окошко, все по классике

screenshot

- mrOK, mrCancel как ModalResult. Однако есть нюанс - в главной форме есть универсальный обработчик событий клавиатуры, в котором отслеживаю работу горячих клавиш. Есть там и обработка RETURN (ловит нажатие Энтера то бишь).
Так вот в вышеупомянутом диалоговом окне если я жму на Enter, то после его закрытия, в главной форме я тоже ловлю реакцию на нажатый Enter (сейчас по умолчанию на кнопке Да фокус стоит, с ModalResult=mrOK).

Как бы мне прекратить передачу этого сообщения главной форме, кто знает ?

#lazarus #programming #russian
0

20 ответов

16 просмотров
Володя-

Если форма кастомная, то отлавливай в ней return и ставь key := #0

0
5 часов назад
Олег-Гранишевский Автор вопроса
Володя
Если форма кастомная, то отлавливай в ней return и...

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

0
5 часов назад
Володя-
Олег Гранишевский
Этот способ знаю, но он почему то не работает. Гла...

А как ты его ловишь? OnKeyDown? DefaultHandler? или ещё как-нибудь?

0
5 часов назад
Олег-Гранишевский Автор вопроса
Володя
А как ты его ловишь? OnKeyDown? DefaultHandler? ил...
screenshot

Пробовал эти два обработчика. KeyPreview-свойство у формы True, тоже, разумеется.

0
5 часов назад
Володя-
Олег Гранишевский
screenshot Пробовал эти два обработчика. KeyPreview-свойство ...

Я про главную форму, какой там обработчик

0
4 часа назад
Олег-Гранишевский Автор вопроса
Володя
Я про главную форму, какой там обработчик

procedure TfrmMAIN.FormKeyUp(Sender: TObject; var Key: Word; Shift: TShiftState);

0
4 часа назад
Володя-
Олег Гранишевский
procedure TfrmMAIN.FormKeyUp(Sender: TObject; var ...

А теперь попробуй в модальной тоже keyUp обрабатывать

0
4 часа назад
Володя-
Олег Гранишевский
procedure TfrmMAIN.FormKeyUp(Sender: TObject; var ...

Я даже на тестовом примере повторить не могу

0
4 часа назад
Олег-Гранишевский Автор вопроса
Володя
Я даже на тестовом примере повторить не могу

проблема не повторяется?)

0
4 часа назад
Володя-
Олег Гранишевский
проблема не повторяется?)

ага, с showmodal или просто show никакой разницы нет

0
4 часа назад
Олег-Гранишевский Автор вопроса
Володя
ага, с showmodal или просто show никакой разницы н...

хмм... может в Дельфи дело? у меня XE7

0
4 часа назад
Олег-Гранишевский Автор вопроса
Володя
понял, у меня 12.1

вполне возможно баг с окнами в XE7 какой то... где то я видел про проблемы с окнами именно в ней.

0
4 часа назад
Михаил-Усков

перед ShowModal диалога отключай KeyPreview у отслеживающей нажатия формы, а после показа - включай

0
4 часа назад
Олег-Гранишевский Автор вопроса
Михаил Усков
перед ShowModal диалога отключай KeyPreview у отсл...

кстати, как вариант, да, спасибо.

0
4 часа назад
Володя-
Михаил Усков
перед ShowModal диалога отключай KeyPreview у отсл...

Тогда по идее активный контрол на основной форме словит событие

0
4 часа назад
Олег-Гранишевский Автор вопроса
Володя
Тогда по идее активный контрол на основной форме с...

ага, так и есть) а мне как раз этого и не надо

0
4 часа назад
Олег-Гранишевский Автор вопроса
Володя
А проверь кто в Sender приходит

активный контрол главной и приходит. тот который до появления диалога был активен

0
4 часа назад

Похожие вопросы

Delphi & Lazarus Delphi & Lazarus / Александр (Rouse_) Багель
Подписаться

Мдя, прикол, боевая сборка запускается (именно под отладчиком) после F9 примерно полторы минуты (97 секунд если быть точным). Начал копать - проблема детектится сразу - зависа...

#lazarus #programming #russian
вчера 06:44
0
38 ответов
Delphi & Lazarus Delphi & Lazarus / Евгений
Подписаться
screenshot

Всем привет! Снес 11 и поставил 12 версию Delphi. В приложении шрифт и размеры кнопок одного размера, а после компиляции открывается приложение с другими размерами (больше на ...

#lazarus #programming #russian
сегодня 11:36
0
5 ответов
Delphi & Lazarus Delphi & Lazarus / Budemposmotret
Подписаться

добрый день. возможно ли изменить цвет окон лазаруса? Как?

#lazarus #programming #russian
29.10.2024
0
35 ответов
Delphi & Lazarus Delphi & Lazarus / Iluha Companets
Подписаться

а проверьте, собирается ли у кого сейчас транк лазаря через делюкс? у меня вот: fpcupdeluxe: info: Lazarus Native Installer (BuildModuleCustom: UserIDE): LazBuild: building Us...

#lazarus #programming #russian
30.10.2024
0
20 ответов
Delphi & Lazarus Delphi & Lazarus / Dmitry
Подписаться

Господа, а кто-нибудь сталкивался с размещением на TTabControl/TTabSheet множества контролов (> 100) с последующими External: Access violation? Вот буквально на ровном месте. ...

#lazarus #programming #russian
29.10.2024
0
29 ответов
Delphi & Lazarus Delphi & Lazarus / Serjone
Подписаться

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

#lazarus #programming #russian
20.10.2024
0
75 ответов
Delphi & Lazarus Delphi & Lazarus / Sergey Bodrov
Подписаться

Мне тут приспичило встроить в программу форматировние текста SQL, расставить переносы строк и отступы так, чтобы лучше читалось. Я что-то свое изобразил, оно после ключевых сл...

#lazarus #programming #russian
31.10.2024
0
11 ответов
Delphi & Lazarus Delphi & Lazarus / Александр (Rouse_) Багель
Подписаться

Так вот в других языках например можно делать а++, а у нас нельзя и что? Но в других нельзя прописать условие без скобок а у нас можно. О чем это говорит? Что нам просто необх...

#lazarus #programming #russian
24.10.2024
0
47 ответов
Delphi & Lazarus Delphi & Lazarus / Yan Bessonov
Подписаться

@kpilippenok and @all По поводу эпопеи компонента OpenGL в версиях 3.2, 3.6. В общем, с помощью дебага и экспериментов, я выяснил, что функции gdk_x11_get_default_xdisplay() и...

#lazarus #programming #russian
28.10.2024
0
17 ответов
Delphi & Lazarus Delphi & Lazarus / Budemposmotret
Подписаться

В GUI приложении Unit1.pas есть секция type TForm1 = class(TForm) private public end; Где объявлять пользовательские типы? после этой секции - перед var?

#lazarus #programming #russian
27.10.2024
0
30 ответов
Смотреть еще
Delphi & Lazarus Delphi & Lazarus
Подписаться
Вопросов 4671
Ответов 21360
Участников 1067
Telegram @Delphi_Lazarus

Обсуждают сегодня

Мдя, прикол, боевая сборка запускается (именно под отладчиком) после F9 примерно полторы минуты (97 секунд если быть точным). Начал копать - проблема детектится сразу - зависа...
Александр (Rouse_) Багель
38
Всем привет. Хотел бы написать для себя свою ос. Причины: 1) нужен опыт в чем-то 2) будет меньше весить 3) свое, но там будут свои задумки Я понимаю что нужно писать для всег...
Shadow Akira
18
Здравствуйте, вопрос по структурам данных. Были у вас случаи, когда пришлось писать деревья или двунаправленные списки?
/ /
50
5? да там все 10
Boris Vinogradov
12
now Linux kernel development is becoming a dictatorship group: https://www.youtube.com/watch?v=xPF2NSFvNCc
Sharuzzaman Ahmat Raslan
23
Приветствую всех, может кто знает как это реализовать? Чтобы окно не сворачивать и восстанавливать, чтобы обойтись без этого. Просто сделать скриншот всего, что есть под актив...
di ma
6
Всем привет! Скажите, никто не пытался уменьшить размер процесса ssl, которые ассоциируется с открытым соединением (не помню точное название этого процесса, но там была какая-...
Алексей
20
Ок. Где достать 11 версию дельфи. На офф сайте ссылки на неё нет... Какие есть варианты?
Serg Vish
19
привет всем. Народ, кто-нибудь работал с мультипоточностью? Где посмотреть/ что почитать посоветуете? В идеале чтоб материал был максимально сжатый, времени читать например в...
Serg Vish
18
This is a big issue. Just by being a citizen of a country, you are denied to contribute to Open Source software: https://youtu.be/L5Ec5jrpLVk?si=1iIuHnMPbCB4anV-
Sharuzzaman Ahmat Raslan
72
Карта сайта