Невизуальный интерфейс

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

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

Ответить
Alexx
Постоянный обитатель
Сообщения: 168
Зарегистрирован: 29 мар 2005, 17:49

Невизуальный интерфейс

Сообщение Alexx »

День добрый!
Подкиньте примерчик интерфейса, который не отображает на экране какие-либо элементы управления. Идея такова, интерфейсу передаются какие-то параметры, используя их он сам что-то там делает, в зависимости от задачи, т.е. пользователь ничего там не должен выбирать или нажимать.
Darikon
Постоянный обитатель
Сообщения: 188
Зарегистрирован: 17 июн 2008, 17:07
Откуда: Москва
Контактная информация:

Сообщение Darikon »

поищи по форуму AlwaysReturn
edward_K
Заслуженный деятель интернет-сообщества
Сообщения: 5188
Зарегистрирован: 29 мар 2005, 17:49
Откуда: SPB galaxy spb

Сообщение edward_K »

и в cmInit в конце
closeinterface(cmDefault)
не поможет добавте еще abort или (и) exit
m0p3e
Местный житель
Сообщения: 1386
Зарегистрирован: 29 мар 2005, 17:49
Откуда: Москва

Сообщение m0p3e »

Если нужно вернуть что-то, то в заголовке AlwaysReturn.
В конце cmInit ставим Abort
cmInit : {
..........
Abort;
};

При CloseInterface() интерфейс успевает моргнуть вроде. :)
galover
Местный житель
Сообщения: 794
Зарегистрирован: 16 ноя 2007, 13:52

Сообщение galover »

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

interface Calc;
 public function Mul(param1 : integer; param2 : integer) : integer;
 {
    result := param1 * param2;
 }
end.

interface Test;
  handleEvent
    cmInit:
    {
       var pCalc : Calc new;
       Message(String(pCalc.Mul(2, 3)));
    }
  end;
end.

Ответить