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.

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

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

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

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

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

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

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