Страница 1 из 1

Изменение интерфейса alter interface

Добавлено: 25 авг 2009, 07:53
Алексей
Есть стандартный интерфейс.
Требуется: на одно из полей по ф3 вызывать другой интерфейс.

Вопрос: как изменить событие cmPick только для однго поля, не затрагивая функционал других?

При попытке переписать событие cmPick - наше поле работает зато выбор пропадает со всех остальных полей, в которых раньше работал.

Добавлено: 25 авг 2009, 10:57
Galex

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

HandleEvent
  cmPick: {
    inherited :: HandleEvent (cmPick); // Вызываем стандартные обработчики
    if (CurField = #YourField) { // где #YourField - ваше поле
      // Ваш код...
    }
end;

Добавлено: 25 авг 2009, 11:10
Ged
Чутка по другому.

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

cmPick:
  { Case CurField of
      #YourField : RunInterface(XXX,YYY);
      else   if(inherited::HandleEvent(cmPick) = heOk)   {}
     End; 
   }

Добавлено: 25 авг 2009, 11:34
Алексей
спасибо, гляну! :-)