Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 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.018 c
7-75017
dma77
2002-10-20 12:56
2002.12.23
Процедуры COM порта (стандартные)


4-75052
Keplin Sergey
2002-11-10 22:06
2002.12.23
Добавить меню другой программе...


14-74961
Карелин Артем
2002-11-06 12:06
2002.12.23
Набираю команду


14-74992
Anatoly Podgoretsky
2002-12-04 07:38
2002.12.23
Именинники 4 декабря


4-75050
pag77
2002-11-07 19:51
2002.12.23
выключить комп под XP