Timer i Delphi

Et hurtigt eksempel - Timer1's Interval skal sættes til 1000

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    Timer1: TTimer;
    procedure FormCreate(Sender: TObject);
    procedure Timer1Timer(Sender: TObject);
  private
    iCount: Integer;
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.DFM}

procedure TForm1.FormCreate(Sender: TObject);
begin
  iCount := 10;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
  If iCount = 0 Then Begin
    Timer1.Enabled := False;
    ShowMessage('Gør noget!');
    iCount := 10;
    Timer1.Enabled := True;
  End
  Else Begin
    Dec(iCount);
    Caption := Format('Gør noget om %d sek.',[iCount]);
  End;
end;

end.

Tak..
Men den klager over at "TTimer" er en "undeclared identifier"?

Har du husket at sætte et TTimer komponent på din form?

Det var problemet:)

Men jeg synes ikke den skriver noget. Har prøvet med en label og en edit-boks - men de forbliver tomme (i din caption del).

Fandt problemet:)

Som et side spørgsmål.. Hvordan får jeg afbrudt processen med at den opdaterer hvert 10. sekund?

Så sætter du bare Timer1.Enabled til False. Så sker der ikke længere noget hvert 10. sekund.

Takker. Virker som det skal nu:)

Afgiv lige et svar hvis du vil have points.

Hovsa.. det var klaret :D