My Visual Database — перехватить [esc]

Re: перехватить [esc]

null@example.com (k245) — Wed, 18 Aug 2021 15:45:32 +0000

sibprogsistem wrote:

в новом проекте перехватывает
буду искать причину

Видимо, на форме есть кнопка со свойством Cancel = True. Измени его на Cancel = False и все заработает ))))

Re: перехватить [esc]

null@example.com (vovka3003) — Mon, 16 Aug 2021 17:42:18 +0000

нет, не работает

работает.

в новом проекте перехватывает

ответ очевиден - косяк в старом проекте.

Re: перехватить [esc]

null@example.com (sibprogsistem) — Mon, 16 Aug 2021 17:37:50 +0000

в новом проекте перехватывает
буду искать причину

Re: перехватить [esc]

null@example.com (sibprogsistem) — Mon, 16 Aug 2021 17:33:36 +0000

vovka3003 wrote:

Великолепно...
sibprogsistem wrote:
как перехватить нажатие [ESC]? Мне нужно по этой клавише закрывать активную модальную форму.
Держи:
procedure FormKeyDown(Sender: TObject; var Key: Word; Shift, Alt, Ctrl: boolean);
begin
 if Key=27 then
 begin
     ShowMessage('Была нажата ESC в Форме');
     TForm(Sender).Close;
 end;
end;

begin
  ModalFm.KeyPreview := true;
  ModalFm.OnKeyDown := @FormKeyDown;
end.

нет, не работает
другие клавиши перехватывает но не ESC

Re: перехватить [esc]

null@example.com (vovka3003) — Mon, 16 Aug 2021 17:21:59 +0000

Великолепно...

sibprogsistem wrote:

как перехватить нажатие [ESC]? Мне нужно по этой клавише закрывать активную модальную форму.

Держи:

procedure FormKeyDown(Sender: TObject; var Key: Word; Shift, Alt, Ctrl: boolean);
begin
 if Key=27 then
 begin
     ShowMessage('Была нажата ESC в Форме');
     TForm(Sender).Close;
 end;
end;

begin
  ModalFm.KeyPreview := true;
  ModalFm.OnKeyDown := @FormKeyDown;
end.

Re: перехватить [esc]

null@example.com (sibprogsistem) — Mon, 16 Aug 2021 17:18:28 +0000

vovka3003 wrote:

Отлично. А сделать что требуется? (Про "перехватить" слышали уже)

закрыть модальную форму...

Re: перехватить [esc]

null@example.com (vovka3003) — Mon, 16 Aug 2021 17:13:01 +0000

Отлично. А сделать что требуется? (Про "перехватить" слышали уже)

Re: перехватить [esc]

null@example.com (sibprogsistem) — Mon, 16 Aug 2021 16:59:19 +0000

vovka3003 wrote:

sibprogsistem wrote:
как перехватить нажатие [ESC] ?
Можно попробовать незаметно подкрасться и "перехватить".
Вопрос - где..? В главном окне программы? В модальной форме? Надо как-то правильней вопрос ставить. Подкреплять подробностями, готовым примером скрипта, который не работает, скриншотами...

В модальной форме

Re: перехватить [esc]

null@example.com (vovka3003) — Mon, 16 Aug 2021 16:51:13 +0000

sibprogsistem wrote:

как перехватить нажатие [ESC] ?

Можно попробовать незаметно подкрасться и "перехватить".
Вопрос - где..? В главном окне программы? В модальной форме? Надо как-то правильней вопрос ставить. Подкреплять подробностями, готовым примером скрипта, который не работает, скриншотами...

Re: перехватить [esc]

null@example.com (sibprogsistem) — Mon, 16 Aug 2021 15:10:16 +0000

нашел почему не принимал тип

var Key: Char

но все равно нажатие не перехватывает

Re: перехватить [esc]

null@example.com (sibprogsistem) — Mon, 16 Aug 2021 15:03:55 +0000

sparrow wrote:

А смотря где и для чего
Для Edit через OnKeyPress или OnKeyDown пример здесь
http://myvisualdatabase.com/forum/viewtopic.php?id=1879

ясно значит я все правильно делал, спасибо..
почему-то программа говорит что #27 и все остальные при использовании # ( несовместимый тип)

Re: перехватить [esc]

null@example.com (sparrow) — Mon, 16 Aug 2021 13:58:50 +0000

А смотря где и для чего

Для Edit через OnKeyPress или OnKeyDown пример здесь

http://myvisualdatabase.com/forum/viewtopic.php?id=1879

перехватить [esc]

null@example.com (sibprogsistem) — Mon, 16 Aug 2021 13:01:24 +0000

как перехватить нажатие [ESC] ?