Галактика в вопросах и ответах

Код: Выделить всё

create view as select * from
Table1, Table2;

screen
 table Table1;
 
 fields
  Table1.Name1;
  Table2.Name1;
 buttons
  cmStart;
end;

handleEvent:
  cmPick:
  {
     case CurField() of
        #Table1.Name1:
        {
             ....
             SetEnableCommand(cmStart, SomeCondition());
         }
         #Table2.Name1:
        {
             ...
            SetEnableCommand(cmStart, SomeCondition());
        }
     end;
  }
end; 

Код: Выделить всё

cmPick:
  {
     case CurField() of
        #Table1.Name1:
        {
             RunInterface(MyInterface); // <- проблемное место
             SetEnableCommand(cmStart, SomeCondition());
         }
         #Table2.Name1:
        {
             ...
            SetEnableCommand(cmStart, SomeCondition());
        }
     end; 

    interface MyInterface 'Тест', cyan, doAccept, dialog, escClose; // все дело в dialog
    ...
    end.