25.07.2006, 22:51
|
|
Местный
|
|
Регистрация: 03.06.2006
Адрес: Почту найдете на моем сайте
Сообщения: 576
Версия Delphi: D10.2
Репутация: 214
|
|
Вот пара статей про работу с таймерами на WinAPI:
http://decoding.narod.ru/api/timer/timer.html
http://decoding.narod.ru/api/mmtimer/mmtimer.html
А вот пример использования в проекте с VCL.
Код:
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs;
type
TForm1 = class(TForm)
procedure FormCreate(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
private
{ Private declarations }
public
{ Public declarations }
procedure WMTimer( var Msg: TWMTimer ); message WM_TIMER;
end;
const
TIMER_ID = 1;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.FormCreate(Sender: TObject);
begin
SetTimer( Handle, TIMER_ID, 1000, nil );
end;
procedure TForm1.WMTimer(var Msg: TWMTimer);
begin
Caption := IntToStr( Random( 100 ) );
end;
procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
KillTimer( Handle, TIMER_ID );
end;
end.
|