Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2002.10.28;
Скачать: CL | DM;

Вниз

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 вся ветка

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

Наверх




Память: 0.47 MB
Время: 0.012 c
1-92559
3asys
2002-10-16 15:04
2002.10.28
Упаковка в exe-шник


1-92418
pirat
2002-10-16 22:30
2002.10.28
Как же все таки поменить оконную функцию TEdit ??? :(( HELP!


1-92604
Cr@sh
2002-10-12 21:01
2002.10.28
Сопоставление процедур.


1-92541
Chlavik
2002-10-15 18:18
2002.10.28
Преобразование строки.


3-92357
Aleksandr
2002-10-07 13:49
2002.10.28
Как перевести значение TDateTime в цифровой формат MS SQL?