| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

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

Denis Myasnichenko ©   (2003-04-30 10:49:00) 

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

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

---

Кладов   (2003-05-04 10:30:00) [1]

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

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

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

---

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

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

---

Gandalf   (2003-04-30 12:30:00) [3]

Возможно все, скажем так.
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;... Но тогда на таймер не останется сил, придется самому тики считать.

---

Наверх