Код: Выделить всё
private function IsBrowseField : boolean;
{
result := false;
if (IsValid(#tblUsers))
{
case CurField() of
#tblUsers.FullName, #tblUsers.LoginName,
#tblUsers.Descr, #tblUsers.DescrGr,
#tblUsers.SessionsCount:
result := true;
end;
}
}
cmHotKeys:
{
if (IsBrowseField())
{
var menuCommand : word;
menuCommand := RunMenu('mnuOperations');
if (menuCommand <> cmCancel)
PutCommand(menuCommand)
}
}