Закрыть интерфейс только по кнопке

[Алексей]

Хочу чтобы интерфейс закрывался только по кнопке в скрине, чтобы кнопка Esc и нажатие мышью на крестик ничего не делали...

Как?

[m0p3e]

cmClose : Abort;
cmCancel : Abort;

[Алексей]

m0p3e не получится, т.к. после вызова CloseInterface(0) вызывается сначала одно потом другое событие

[Евгений]

Попробуйте, такой вариант

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

Interface TestClose;
  var
    IsClose: Boolean;
  view as select * from kated;

  Screen Scr;
  Buttons
    cmCls;
<<
 <. Exit .>
>>
  end;
  HandleEvent
    cmInit:
    {
      IsClose := False;
    }
    cmClose:
    {
      if (not IsClose)
      Abort
    }
    cmCancel:
    {
      if (not IsClose)
      Abort
    }
    cmCls:
    {
      IsClose := True;
      CloseInterface(0);
    }
  end;
end. 

[m0p3e]

m0p3e не получится, т.к. после вызова CloseInterface(0) вызывается сначала одно потом другое событие

А ты проверь!

В обработчике кнопки
cmMyButton : {CloseInterface(cmDefault);};

[Алексей]

m0p3e мда. работает...

[RAJAH]

Скажите, уважаемые знатоки, а насколько правомочна конструкция

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

interface MyFace
...
handleevent
  cmInit:
  {
...
  }
...
  cmClose:
  {
    RunInterface('MyFace');
  }
...

Т.е., задача примерно такая: сделать интерфейс, который после отработки вызовет код из cmInit.

[Den]

По всей видимости, бесконечный "вечный двигатель" )

[RAJAH]

Как тогда правильно поступить, чтобы интерфейс закрылся и заново запустился?

[edward_K]

и зачем такие сложности? Если нужен вечный двигатель это одно - хватит и просто блокировки на закрытие. Если что то другое - то зачем?

[RAJAH]

В общем, вот:

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

  cmInit:
  {
    if RunInterface('F_FPCATALOG::GETCO', 1, 0, 0, podnrec) <> cmDefault then
    begin
      CloseInterface(0);
      abort;
      exit;
    end;
  }

Для выбранного ЦО строится browse. Логично, чтобы после работы с ним, пользователю не пришлось вызывать интерфейс заново, а закрытие происходило только при отказе выбирать ЦО.