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 / ...
Delphi & Lazarus Delphi & Lazarus
SwiftBook SwiftBook
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
IDE и редакторы — русског... IDE и редакторы — русског...
OpenCartForum - 🇺🇦🇪🇺Чат O... OpenCartForum - 🇺🇦🇪🇺Чат O...
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
Delphi Community Delphi Community
pro.vim pro.vim
Server Side Swift Develop... Server Side Swift Develop...
Autohotkey_RU ( v1 & v2 ) Autohotkey_RU ( v1 & v2 )
PHP DevConf KZ🇰🇿 PHP DevConf KZ🇰🇿
Modern::Perl Modern::Perl
pro.rb (Ruby/Rails / RU) pro.rb (Ruby/Rails / RU)
RubyRush.ru RubyRush.ru
Oracle RU Oracle RU
ru.nim.talks ru.nim.talks
DevOps DevOps
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...
Haskell Start Haskell Start
Эльбрусы и с чем их едят Эльбрусы и с чем их едят
Java/Kotlin and more Java/Kotlin and more
pro.buildsystems pro.buildsystems
Powershell Rus Powershell Rus
ErlangRus ErlangRus
Python для анализа данных Python для анализа данных
Скрипты Гугл, Таблицы, Go... Скрипты Гугл, Таблицы, Go...
WebGL ru WebGL ru
Compiler Development Compiler Development
firebase_ru — русскоговор... firebase_ru — русскоговор...
Electron.js Electron.js
phpclub.ru phpclub.ru
RU.CRYPTOGRAPHY — Криптог... RU.CRYPTOGRAPHY — Криптог...
pro.osdev - os developmen... pro.osdev - os developmen...
MySQL MySQL
Lame C++ Lame C++
QA juniors QA juniors
GameDev for Web GameDev for Web
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
Язык программирования Jul... Язык программирования Jul...
WordPress – русскоговорящ... WordPress – русскоговорящ...
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 ответов

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

0
1 месяц назад
Михаил-Усков

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

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

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

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

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

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

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

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

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

0
1 месяц назад

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

Delphi & Lazarus Delphi & Lazarus / Rꙮman Yankꙮvsky
Подписаться

Господа, а что сейчас вообще с рынком труда на делфи происходит? Какова ситуация?

#lazarus #programming #russian
22.11.2024
0
29 ответов
Delphi & Lazarus Delphi & Lazarus / Владимир
Подписаться

30500 за редактор? )

#lazarus #programming #russian
20.11.2024
0
47 ответов
Delphi & Lazarus Delphi & Lazarus / Alexey Kulakov
Подписаться

а через ESC-код ?

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

Чёт не понял, я ж правильной функцией воспользовался чтобы вывести отладочную информацию? но что-то она не ловится

#lazarus #programming #russian
21.11.2024
0
18 ответов
Delphi & Lazarus Delphi & Lazarus / Евгений
Подписаться

Всем привет! Имеется функция: function IsValidChar(ch: UTF8Char): Boolean; var i: Integer; ValidChars: AnsiString; begin ValidChars := 'abcdefghijklmnopqrstuvwxyzABCDE...

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

Как передать управляющий символ в открытую через CreateProcess консоль? Собсна, есть процедура: procedure TRedirectThread.WriteData(Data: OEMString); var Written: Cardinal;...

#lazarus #programming #russian
21.11.2024
0
6 ответов
Delphi & Lazarus Delphi & Lazarus / Karagy
Подписаться

в JclConsole объявлено так: function CtrlHandler(CtrlType: DWORD): BOOL; stdcall; - где ваше объявление с stdcall? у вас на картинке нет stdcall

#lazarus #programming #russian
21.11.2024
0
8 ответов
Delphi & Lazarus Delphi & Lazarus / notme
Подписаться

program test; {$mode delphi} procedure proc(v: int32); overload; begin end; procedure proc(v: int64); overload; begin end; var x: uint64; begin proc(x); end. Уж не знаю...

#lazarus #programming #russian
21.11.2024
0
6 ответов
Delphi & Lazarus Delphi & Lazarus / Karagy
Подписаться

у вас два процесса. один посылает другому сигнал. у вас есть код обоих процессов? если всё не так - расскажите как оно на самом деле. а именно кто кому чего, есть-ли консоли,...

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

Хм, не переборщил ли с подсветкой адресов? Суть задумки взята из x64dbg, красным подсвечиваются адреса указывающие на исполняемый код, зеленым на данные (грубо на выделенную п...

#lazarus #programming #russian
19.11.2024
0
13 ответов
Смотреть еще
Delphi & Lazarus Delphi & Lazarus
Подписаться
Вопросов 4827
Ответов 22299
Участников 1090
Telegram @Delphi_Lazarus

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

Господа, а что сейчас вообще с рынком труда на делфи происходит? Какова ситуация?
Rꙮman Yankꙮvsky
29
А вообще, что может смущать в самой Julia - бы сказал, что нет единого стандартного подхода по многим моментам, поэтому многое выглядит как "хаки" и произвол. Короче говоря, с...
Viktor G.
2
30500 за редактор? )
Владимир
47
а через ESC-код ?
Alexey Kulakov
29
Чёт не понял, я ж правильной функцией воспользовался чтобы вывести отладочную информацию? но что-то она не ловится
notme
18
У меня есть функция где происходит это: write_bit(buffer, 1); write_bit(buffer, 0); write_bit(buffer, 1); write_bit(buffer, 1); write_bit(buffer, 1); w...
~
14
Добрый день! Скажите пожалуйста, а какие программы вы бы рекомендовали написать для того, чтобы научиться управлять памятью? Можно написать динамический массив, можно связный ...
Филипп
7
Недавно Google Project Zero нашёл багу в SQLite с помощью LLM, о чём достаточно было шумно в определённых интернетах, которые сопровождались рассказами, что скоро всех "ибешни...
Alex Sherbakov
5
Ребят в СИ можно реализовать ООП?
Николай
33
https://github.com/erlang/otp/blob/OTP-27.1/lib/kernel/src/logger_h_common.erl#L174 https://github.com/erlang/otp/blob/OTP-27.1/lib/kernel/src/logger_olp.erl#L76 15 лет назад...
Maksim Lapshin
20
Карта сайта