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

Программирование на Атлантисе (VIP, FCOM, ARD), FastReport

Модераторы: m0p3e, edward_K, Модераторы

Ответить
Алексей
Местный житель
Сообщения: 2896
Зарегистрирован: 24 июн 2005, 12:12
Откуда: Иркутская область

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

Сообщение Алексей »

Есть стандартный интерфейс.
Требуется: на одно из полей по ф3 вызывать другой интерфейс.

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

При попытке переписать событие cmPick - наше поле работает зато выбор пропадает со всех остальных полей, в которых раньше работал.
Galex
Постоянный обитатель
Сообщения: 175
Зарегистрирован: 29 июн 2006, 14:39
Контактная информация:

Сообщение Galex »

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

HandleEvent
  cmPick: {
    inherited :: HandleEvent (cmPick); // Вызываем стандартные обработчики
    if (CurField = #YourField) { // где #YourField - ваше поле
      // Ваш код...
    }
end;
Ged
Местный житель
Сообщения: 645
Зарегистрирован: 29 мар 2005, 17:49
Контактная информация:

Сообщение Ged »

Чутка по другому.

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

cmPick:
  { Case CurField of
      #YourField : RunInterface(XXX,YYY);
      else   if(inherited::HandleEvent(cmPick) = heOk)   {}
     End; 
   }
Алексей
Местный житель
Сообщения: 2896
Зарегистрирован: 24 июн 2005, 12:12
Откуда: Иркутская область

Сообщение Алексей »

спасибо, гляну! :-)
Ответить