var
esc_b:boolean;
......
procedure ...KeyDown
begin
if .... then
esc_b:=true;
end
...
procedure ...KeyPress
begin
if esc_b then
begin
esc_b:=false;
exit;
end;
.......
end
KeyDown и KeyPress
у меня есть DBGrid и Edit.
На edit стоит два обработчика это KeyDown и KeyPress.
Вв KeyPress при нажатии любой клавиши DBGrid становится видимой.
Мне надо в обработчике KeyDown прописать что на VK_ESCAPE BDGrid станет невидимым, проблема в том что тут срабатывает KeyPress и он сразу же отображается...
На edit стоит два обработчика это KeyDown и KeyPress.
Вв KeyPress при нажатии любой клавиши DBGrid становится видимой.
Мне надо в обработчике KeyDown прописать что на VK_ESCAPE BDGrid станет невидимым, проблема в том что тут срабатывает KeyPress и он сразу же отображается...
в событии KeyDown присвой некоторой переменной некоторое значение при нажатии эскейп
например
например
Код: