Countdown erstellen

[alleinherrscher]

Du müsstest FCountdown erstmal deklarieren, in unserem Fall wäre das ein Integer, den du am besten oben in deiner Unit unter "Private" deklarierst. Dann musst du dieser Variablen noch einen Wert zuweisen, nämlich die Anzahl an Sekunden, die runtergewählt wernden soll. Dabei kannst du z.B. bei dem OnFormShow Ereigniss (Doppelklick im Objektinspektor unter Ereignisse auf OnShow) den festen Wert 250 sekunden zuweisen, oder halt eine andere Anzahl an Sekunden, die du haben willst...

Grüße

Delphi-Quellcode:

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    Timer1: TTimer;
    Label1: TLabel;
    procedure Timer1Timer(Sender: TObject);
    procedure FormShow(Sender: TObject);
  private
    { Private-Deklarationen }
    FCountdown:integer;
  public
    { Public-Deklarationen }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormShow(Sender: TObject);
begin
 FCountdown:=250;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
 FCountdown:=FCountdown-1;
 Label1.caption:=inttostr(FCountdown);
 if FCountdown=0 then timer1.enabled:=False;
end;

end.