Topic: перехватить [esc]
как перехватить нажатие [ESC] ?
My Visual Database → Russian → перехватить [esc]
как перехватить нажатие [ESC] ?
А смотря где и для чего
Для Edit через OnKeyPress или OnKeyDown пример здесь
А смотря где и для чего
Для Edit через OnKeyPress или OnKeyDown пример здесь
ясно значит я все правильно делал, спасибо..
почему-то программа говорит что #27 и все остальные при использовании # ( несовместимый тип)
нашел почему не принимал тип
var Key: Char
но все равно нажатие не перехватывает
как перехватить нажатие [ESC] ?
Можно попробовать незаметно подкрасться и "перехватить".
Вопрос - где..? В главном окне программы? В модальной форме? Надо как-то правильней вопрос ставить. Подкреплять подробностями, готовым примером скрипта, который не работает, скриншотами...
sibprogsistem wrote:как перехватить нажатие [ESC] ?
Можно попробовать незаметно подкрасться и "перехватить".
Вопрос - где..? В главном окне программы? В модальной форме? Надо как-то правильней вопрос ставить. Подкреплять подробностями, готовым примером скрипта, который не работает, скриншотами...
В модальной форме
Отлично. А сделать что требуется? (Про "перехватить" слышали уже)
Отлично. А сделать что требуется? (Про "перехватить" слышали уже)
закрыть модальную форму...
Великолепно...
как перехватить нажатие [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.
Великолепно...
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
в новом проекте перехватывает
буду искать причину
нет, не работает
работает.
в новом проекте перехватывает
ответ очевиден - косяк в старом проекте.
в новом проекте перехватывает
буду искать причину
Видимо, на форме есть кнопка со свойством Cancel = True. Измени его на Cancel = False и все заработает ))))
My Visual Database → Russian → перехватить [esc]
Powered by PunBB, supported by Informer Technologies, Inc.
Theme Hydrogen by Kushi