Таймер на delphi

[mish@]

Привет всем!!!не можете ли вы подсказать как зделать самый элементарный таймер который будет работать на время указанное в исходнике. и по окончанию этого времени остановил какоенибудь деиствие. таимер без всяких форм эидитов и т.д

[Kotofff]

Внизу этой страницы есть "Похожие темы".
Смотрел ?

[NieL]

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs;

const
  TimerID = WM_USER + 1;

type
  TForm1 = class(TForm)
    procedure FormCreate(Sender: TObject);
  private
    procedure WMTimer(var Msg: TWMTimer); message WM_TIMER;
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  n: Integer = 0;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
  SetTimer(Handle, TimerID, 1000, nil);
end;

procedure TForm1.WMTimer(var Msg: TWMTimer);
begin
  if Msg.TimerID = TimerID then

    if n <> 10 then
    begin
      Inc(n);
      Caption := Format('Таймер запущен. %d', [n]);
    end
    else
    begin
      KillTimer(Handle, TimerID);
      Caption := 'Таймер остановлен';
    end;

end;

end.

[Lifefine]

Сообщение от NieL

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs;

const
  TimerID = WM_USER + 1;

type
  TForm1 = class(TForm)
    procedure FormCreate(Sender: TObject);
  private
    procedure WMTimer(var Msg: TWMTimer); message WM_TIMER;
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  n: Integer = 0;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
  SetTimer(Handle, TimerID, 1000, nil);
end;

procedure TForm1.WMTimer(var Msg: TWMTimer);
begin
  if Msg.TimerID = TimerID then

    if n <> 10 then
    begin
      Inc(n);
      Caption := Format('Таймер запущен. %d', [n]);
    end
    else
    begin
      KillTimer(Handle, TimerID);
      Caption := 'Таймер остановлен';
    end;

end;

end.

а откуда это взять

  procedure WMTimer(var Msg: TWMTimer); message WM_TIMER;

. Заранее большое спасибо!

[Пепел Феникса]

а откуда это взять

представляете самим написать

const
  TimerID = WM_USER + 1;

вообще то это не сообщение так что не нужно WM_USER привлекать.
любой ID пишем.

[Lifefine]

Сообщение от Пепел Феникса

представляете самим написать


вообще то это не сообщение так что не нужно WM_USER привлекать.
любой ID пишем.

Это обычная процедура?

[Lifefine]

Сообщение от Пепел Феникса

представляете самим написать


вообще то это не сообщение так что не нужно WM_USER привлекать.
любой ID пишем.

а куда выводит таймер? я вижу что

 Caption := Format('Таймер запущен. %d', [n]);

нет компонента Label

[Lifefine]

Все сработало)))

[Пепел Феникса]

а куда выводит таймер?

procedure TForm1.WMTimer(var Msg: TWMTimer);
begin
  if Msg.TimerID = TimerID then

    if n <> 10 then
    begin
      Inc(n);
      Caption := Format('Таймер запущен. %d', [n]);
    end
    else
    begin
      KillTimer(Handle, TimerID);
      Caption := 'Таймер остановлен';
    end;

end;

итого получаем Self.Caption
то есть в заголовок формы

[Lifefine]

procedure TForm1.WMTimer(var Msg: TWMTimer);
begin
  if Msg.TimerID = TimerID then

    if n <> 10 then
    begin
      Inc(n);
      Label2.Caption := Format('Таймер запущен. %d', [n]);
    end
    else
    begin
      KillTimer(Handle, TimerID);
     Label2.Caption := 'Таймер остановлен';
    end;

end;

Спасибо! Я вывожу ответ на Label2