AndreTMВладимирМЗапретить закрывать Browse по нажатию Esc можно только подавив вообще реакцию на Esc через
Но это означает отсутствие реакции вообще везде на нажатие клавиши Esc. Восстановить настройку можно командой без параметров
Если реакция на кнопки сделана через @..GET...VALID MyFunction(choice), и есть кнопка, привязанная к Esc, то можно "почти логично" сделать переопределение. Главное при таком использовании - не забывать сразу же восстанавливать переназначения после интерактива. Впрочем, от глюков это всё равно не убережёт :)
+
Test
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
set talk off
close all
clear all
clear
use test in 0 shared
browse nowait
@22,1 get ch function '*NH Read;Top;Bottom;\?Exit' size 1,10 default 1 valid test_ch(ch)
on key label ESC do test_ch with 4
read cycle
on key label ESC
use in test
*
function test_ch
parameter ch
do case
case ch=1
*
case ch=4
clear read
endcase
return
Большое спасибо за подсказку. завтра опробую и напишу, как получилось.
