Форум: "WinAPI";
Текущий архив: 2002.12.23;
Скачать: [xml.tar.bz2];
ВнизПример функции 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 вся ветка
Форум: "WinAPI";
Текущий архив: 2002.12.23;
Скачать: [xml.tar.bz2];
Память: 0.44 MB
Время: 0.008 c