Скачать: CL | DM;

runtime + console   Найти похожие ветки 

← →
Furkan   (2004-03-25 14:16) [0]

как в консольном приложении создавать что либо динамически я вроде как понял, а вот с обработчиками событий беда. Что я делаю не правильно:

program Project1;
{$APPTYPE CONSOLE}
uses
SysUtils, ExtCtrls;

Var
Timer: TTimer;

procedure MyOnTimer(Sender: TObject);
Begin
WriteLn("*");
End;

Begin
Timer:= TTimer.Create(nil);
Timer.Interval:= 100;
Timer.Enabled:= True;
Timer.OnTimer:= MyOnTimer;
end.

---

← →
mrcat ©   (2004-03-25 14:20) [1]

Что по-твоему должно происходить вот тут:
Timer.OnTimer:= MyOnTimer;

---

← →
Furkan   (2004-03-25 14:38) [2]

ну...
при возникновении события OnTimer запускать MyOnTimer...

---

← →
mrcat ©   (2004-03-25 14:42) [3]

и как по-твоему это самое событие будет "возникать" ?
кто возьмёт на себя работу по отлову этого события ?

---

← →
Плохиш   (2004-03-25 14:43) [4]

> Furkan   (25.03.04 14:38) [2]
> ну...
> при возникновении события OnTimer запускать MyOnTimer...

Таймер-то конечно запустится, но на следующей строчки он будет благополучно разрушен и программа завершиться. Догадайся с трёх раз: Почему?

---

← →
Furkan   (2004-03-25 14:48) [5]

2mrcat
затрудняюсь ответить. но если бы я знал, стал бы спрашивать? ;-)

2Плохиш
последняя строчка? (end.)

---

← →
Плохиш   (2004-03-25 14:50) [6]

>Furkan   (25.03.04 14:48) [5]

Будем это считать первой попыткой?

---

← →
Furkan   (2004-03-25 14:53) [7]

2Плохиш
Надо
While True Do  
 Begin

 End;
?

---

← →
mrcat ©   (2004-03-25 15:11) [8]

Furkan   (25.03.04 14:48) [5]
Перед тем, как что-то ждать, необходимо организвать цикл обработки сообщений ... реализуется ч.з. GetMessage + TranslateMessage + DispatchMessage.

---

← →
Furkan   (2004-03-25 15:14) [9]

2mrcat
если не затруднит, можно пример.
или link.

---

← →
Cobalt ©   (2004-03-25 15:31) [10]

Файл win32.hlp
Функция GetMessage. Жмёшь кнопку "Overview" и читаешь.

---

← →
Furkan   (2004-03-25 15:44) [11]

Этот гад утверждает что
[Error] Project1.dpr(17): Undeclared identifier: "GetMessage"

---

← →
Cobalt ©   (2004-03-25 16:06) [12]

Ты читай, читай...
И ещё есть замечательный поиск в C:\Program Files\Borland\Delphi4\Source

---

← →
Furkan   (2004-03-25 16:08) [13]

А есть что путное в Demos по этому поводу?

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.47 MB
Время: -0.703 c