Текущий архив: 2002.12.23;
Скачать: CL | DM;

Вниз

Пример функции SetTimer ???   Найти похожие ветки 

← →
Cosmic   (2002-11-10 18:42) [0]

Кто знает как использовать - напишите примерчик, плз...

---

← →
apay ©   (2002-11-11 00:52) [1]


TFotm1 = class(TForm)
...
private
TimerID: DWORD;
procedure WMTimer( var Msg: TWMTimer ); message WM_TIMER;
...
end;


...
TimerID := <что-то>;
SetTimer( Handle, TimerID, <milliseconds>, nil );

...

procedure TForm1.WMTimer( var Msg: TWMTimer ); message WM_TIMER;
begin
if Msg.TimerID = TimerID then begin
<делаем что-то>
Msg.Result := 0;
end
else inherited;
end;


---

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

Текущий архив: 2002.12.23;
Скачать: CL | DM;

Наверх

Память: 0.46 MB
Время: 0.037 c