Код: Выделить всё
browse br_Head;
show(,,74,17);
Table xxxxx;
Fields
xxxxx.Type 'Тип':[10] ,Protect;
end;
Screen bt_Button;
show(,18,,22);
noTableNavigation;
fields
[Filter] _Filter:NoProtect;
buttons
cmExit ,[doubleLine] ;
<<
[.] Чекбокс - который надо отловить`
<. Выход .>
>>
end;
Так не ловит .. даже если PickButton - указать
Код: Выделить всё
HandleEvent
cmPick:
{
case CurField of
#Filter:
{
message(_Filter);
}
end;
}