Форум: "WinAPI";
Текущий архив: 2002.10.28;
Скачать: [xml.tar.bz2];
ВнизTTimer в API приложении. Найти похожие ветки
← →
Mazenrat (2002-09-16 15:36) [0]Привет.
Как в приложении на чистом API использовать TTimer, организовать событие OnTimer? Если у кого-то есть пример, пожалуйста, представьте.
← →
Xemax (2002-09-16 15:49) [1]пусть твой обработчик сообщений обрабатывает WM_TIMER.
← →
Kaban (2002-09-16 16:00) [2]unit WinTimer;
interface
uses Windows, Classes;
type
TWinTimer=class
Parent:integer;
constructor Create(hParent:integer);
destructor Destroy; override;
private
TimerID:integer;
FInterval:integer;
FEnabled:boolean;
procedure SetEnabled(b:boolean);
procedure SetInterval(i:integer);
published
property Enabled:boolean read FEnabled write SetEnabled;
property Interval:integer read FInterval write SetInterval;
End;
var
iTimers : Integer;
implementation
constructor TWinTimer.Create(hParent:integer);
begin
FInterval:=1000;
Parent:=hParent;
FEnabled:=false;
Inc(iTimers);
TimerID:=iTimers
end;
procedure TWinTimer.SetEnabled(b:boolean);
begin
If FEnabled=b Then Exit;
FEnabled:=b;
If b Then
SetTimer(Parent,TimerID,FInterval,nil)
Else
KillTimer(Parent,TimerID)
end;
procedure TWinTimer.SetInterval(i:integer);
begin
If FInterval=i Then Exit;
FInterval:=i;
If NOT FEnabled Then Exit;
KillTimer(Parent,TimerID);
SetTimer(Parent,TimerID,i,nil)
end;
destructor TWinTimer.Destroy;
begin
KillTimer(Parent,TimerID)
end;
end.
← →
Kaban (2002-09-16 16:09) [3]var
iTimers : Integer = 0;
← →
REA (2002-09-16 16:51) [4]Исходник в Delphi как раз и есть. Они не сильно будут отличаться.
Страницы: 1 вся ветка
Форум: "WinAPI";
Текущий архив: 2002.10.28;
Скачать: [xml.tar.bz2];
Память: 0.45 MB
Время: 0.007 c