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

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

Timer.OnTimer

Страницы:   < 1 2 >

Separator ©   (2003-01-06 10:49:00) 

Может ли не срабатывать событие OnTimer, если я создаю таймер в отдельном потоке?

---

Separator   (2003-01-06 12:30:00) [21]

Каких сообщений?

---

Набережных С.   (2003-01-06 12:27:00) [22]

В Execute нужен цикл выборки сообщений.

---

Separator   (2003-01-06 12:01:00) [23]

Да нет с этим все впорядке, я даже OnTimer переопределил.
Ситуация вообще такая:

type
TKvit = class
private
arrTimerKvit: array [0..CountKvit - 1, 0..(CountPars - 1)] of TTimer;
public
constructor Create;
destructor Destroy; override;
procedure TimerKvit(Sender: TObject);
procedure Enabled(Par, Bit: byte);
procedure Disabled(Par, Bit: byte);
end;

TgbAutoThread = class(TThread)
protected
Kvit: TKvit;
procedure GetBits;
procedure Execute; override;
public
constructor Create(CreateSuspended: Boolean);
destructor Destroy; override;
end;

implementation

constructor TgbAutoThread.Create(CreateSuspended: Boolean);
var
i, j: byte;

begin
inherited Create(CreateSuspended);
Kvit:= TKvit.Create
end;

procedure TKvit.Enabled(Par, Bit: byte);
begin
arrTimerKvit[Bit, Par]:= TTimer.Create(nil);
with arrTimerKvit[Bit, Par] do
begin
Enabled:= false;
OnTimer:= TimerKvit;
Interval:= 5000;
Enabled:= true
end
end;

procedure TKvit.TimerKvit(Sender: TObject);
begin
// Не срабатывает
end;


---

Дмитрий К.К.   (2003-01-06 11:33:00) [24]

Может. Если свойство Enabled компонента Timer равняется False.

---

Страницы:   < 1 2 >

Наверх