| Процедура
EnableCommand (Word) |
Top Previous Next |
| Назначение
|
| Процедура
разрешает команду. |
| Описание
|
| procedure
EnableCommand (aCommand : Word); |
| Параметры
|
| aCommand
: Word - имя команды. |
| Пример
|
| interface
test12 'Тест 12' |
| (,,scTest);
|
| var Commands :
array[1..2] of word; |
| create view as
select * from table1,table2 |
| where
((table1.Number_Dep==table2.Number_Dep)); |
| browse
DepBrowse12; |
| fields
|
| table1.Number_Dep
'Номер отдела' : protect; |
| table1.Name_Dep
'Наименование отдела': protect; |
| table2.Name_Sotr
'Имя сотрудника'; |
| table2.Number_Sotr
'Номер сотрудника'; |
| end;
|
| handleevent
|
| cmInit: {
|
| DisableCommand(cmValue1);
|
| Commands[1]:=cmValue2;
Commands[2]:=cmValue3; |
| DisableCommands(Commands);
|
| }
|
| cmInterface :
RunInterface(Test13); |
| cmDialog :
RunDialog(Test14,1,1,1,'gh'); |
| cmMenu :
{ DisableCommand(cmSaveDataBase);
RunMenu('Vspom'); } |
| cmTest : {
|
| if
CommandEnabled(cmValue1)
= false |
| {
EnableCommand(cmValue1);
|
| EnableCommands(Commands);
} |
| else
|
| {
DisableCommand(cmValue1);
|
| DisableCommands(Commands);
} |
| }
|
| end;
|
| end.
|