KOL && инициализация

← →
Denis Myasnichenko (2003-04-30 10:49) [0]

Есть интересный вопрос, перечитал всю документацию и форум, но ответа не нашел.
Насколько я понял, любая программа на KOL стартует по
run(form:PControl);
а возможно ли стартовать
не создавая формы?
т.е. создать только таймер! и стартовать + обработчик таймера.
Не создавая формы!
???

С уважением, Денис Мясниченко

← →
Gandalf (2003-04-30 12:30) [1]

Возможно все, скажем так.
program RegTest;

uses
Windows,
Kol;

var
Timer:PTimer;

procedure OnTimer( Dummy:Pointer; Sender: PObj );
begin
Beep(1000,1);
end;

begin
Applet:=NewApplet("Demo App");
Timer:=NewTimer(1000);
Timer.OnTimer:=TOnEvent(Makemethod(nil,@OnTimer));
Timer.Enabled:=True;
Applet.Visible:=False;
Run(Applet);
end.
Можно конечно и без Applet, например в конце бессконечный цикл, while (true) do;... Но тогда на таймер не останется сил, придется самому тики считать.

← →
Denis Myasnichenko (2003-04-30 13:03) [2]

Пасиба, понятно!
а я думал на кой ёж создается Аплет
ведь активируется ж форма

← →
Кладов (2003-05-04 10:30) [3]

> бессконечный цикл, while (true) do;... Но тогда на таймер
> не останется сил, придется самому тики считать

есть еще sleep. Можно считать кусками по несколько миллисекунд, отдавая прочее время остальным потокам и процессам.

Таймер в KOL привязывается к окну.Несложно использовать функцию SetTimer с параметром hwnd = 0, и просто будет вызываться указанная функция.

KOL && инициализация Найти похожие ветки