Countdown.... Hvordan

Smid en TTimer på din form. (findes under System)
Smid en label (laMinLeft) sæt dens caption til 10
Lav en privat boolean (start)

I Timer's 'OnTimer' skriver du:

procedure TForm1.Timer1Timer(Sender: TObject);
begin
if start then
  laMinLeft.caption:=IntToStr(StrToInt(laMinLeft.caption)-1);
end;

lav en knap som sørger for at timeren kan køre

procedure TForm1.Button2Click(Sender: TObject);
begin
start := true;
end;

Der er kun en ting i det du lige skrev jeg ikke forstod;
Lav en privet boolean (start)?

sådan:

var
  start : Boolean;


det er fordi at timeren kører hele tiden, og du skal således have en måde at start/stoppe den på

oh ok. Jeg skal lige høre hvordan du vil lave den editbox brugeren kan indtaste minutterne i hvorefter man så trykker på knappen som så starter lablens countdown i den angivne tid

Og skulle den der boolean stå i lablen eller i timeren

smid en edtBox på formen.

skriv sådan her i knap metoden:
procedure TForm1.Button2Click(Sender: TObject);
begin
laMinLeft.Caption := Edit1.Text;
start := true;
end;


og sådan her i timer'en:
procedure TForm1.Timer1Timer(Sender: TObject);
begin
if start then
  laMinLeft.caption:=IntToStr(StrToInt(laMinLeft.caption)-1);
end;

mine typer:
Timer1: TTimer;
laMinLeft: TLabel;
Button2: TButton;
Edit1: TEdit;

var
  Form1: TForm1;
  start : Boolean;

unit Test;

interface

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

type
  TForm1 = class(TForm)
    Timer1: TTimer;
    laMinLeft: TLabel;
    Button2: TButton;
    Edit1: TEdit;
 
    procedure Timer1Timer(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  start : Boolean;

implementation

{$R *.dfm}

procedure TForm1.Timer1Timer(Sender: TObject);
begin
if start then
  laMinLeft.caption:=IntToStr(StrToInt(laMinLeft.caption)-1);
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
laMinLeft.Caption := Edit1.Text;
start := true;
end;

end.

Kan man få timeren til at stoppe ved 0
Og kan man få fx et billede (image1) til at blive visible når den når 0

if start then
  laMinLeft.caption:=IntToStr(StrToInt(laMinLeft.caption)-1);

  if laMinLeft.Caption = IntToStr(0)then
  start := false;

Ja undskyld men jeg er rimelig ny i delphi så jeg kan ikke lige regne ud hvor de forskellige ting skal skrives

laMinLeft.caption:=IntToStr(StrToInt(laMinLeft.caption)-1);

  if laMinLeft.Caption = IntToStr(0)then
  begin
  start := false;
  image1.Visible := true;

image findes under additional

Hvor skal dette stå henne

laMinLeft.caption:=IntToStr(StrToInt(laMinLeft.caption)-1);

  if laMinLeft.Caption = IntToStr(0)then
  begin
  start := false;
  image1.Visible := true;

ohh nu fandt jeg ud af det

procedure TForm1.Timer1Timer(Sender: TObject);
begin
if start then
  laMinLeft.caption:=IntToStr(StrToInt(laMinLeft.caption)-1);

  if laMinLeft.Caption = IntToStr(0)then
  begin
  start := false;
  image1.Visible := true;

  end;
end;

Det virker ikke. Billedet kommer frem 2 sek efter formen er loadet

I object inspectoren skal du sætte dit Image's visible property til false

Det har jeg

underligt.
Dette virker hos mig:

unit Test;

interface

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

type
  TForm1 = class(TForm)
   
    Timer1: TTimer;
    laMinLeft: TLabel;
    Button2: TButton;
    Edit1: TEdit;
    Image1: TImage;
   
    procedure Timer1Timer(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
 
  start : Boolean;

implementation

{$R *.dfm}



procedure TForm1.Timer1Timer(Sender: TObject);
begin
if start then
  laMinLeft.caption:=IntToStr(StrToInt(laMinLeft.caption)-1);

  if laMinLeft.Caption = IntToStr(0)then
  begin
  start := false;
  image1.Visible := true;
  end;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
laMinLeft.Caption := Edit1.Text;
image1.Visible := false;
start := true;
end;

end.

Jeg poster lige mit for lettere at sammenligne:

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    Button1: TButton;
    laMinLeft: TLabel;
    Edit1: TEdit;
    Timer1: TTimer;
    Image1: TImage;
    procedure Timer1Timer(Sender: TObject);
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  start : Boolean;

implementation

{$R *.dfm}

procedure TForm1.Timer1Timer(Sender: TObject);
begin
if start then
  laMinLeft.caption:=IntToStr(StrToInt(laMinLeft.caption)-1);

if laMinLeft.Caption = IntToStr(0)then
  start := false;
  Image1.Visible := true;
end;


procedure TForm1.Button1Click(Sender: TObject);
begin
laMinLeft.Caption := Edit1.Text;
start := true;
end;


end.

image1.Visible := true; bliver ALTID udført ved dig.

Du mangler en "begin"

Nåå... Nu virker det hvis jeg copy/paster dine procedures

og en "end"

Kan man lave en mere detaljeret timer med timer og minutter.

Nu virker det med en timer der tæller ned i sekunder. Kan man lave en timer der tæller ned i timer, minutter og sekunder. I så fald skal man så bruge 3 editboxe til hver enhed

jeg prøver lige

ok

nå jeg smutter for i aften.

Sig til hvis der sidder en eller anden der ved hvordan man laver en timer med sekunder, minutter og timer ;)

const
  t=0;    {timer}
  m=0;    {minutter}
  s=3;    {sekunder}
  {kan naturligvis også hentes fra 3 editboxe eller spinnere}

var
  tim,min,sek: integer;

Function Form(x,y,z: integer):string;
var
  a,b: string;
begin
  If y < 10 then a := '0'+inttostr(y)
  else a := inttostr(y);
  If z < 10 then b := '0'+inttostr(z)
  else b := inttostr(z);
  result := inttostr(x)+':'+a+':'+b;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
  dec(sek);
  if sek = -1 then
  begin
    sek := 59;
    dec(min);
  end;
  if min = -1 then
  begin
    min := 59;
    dec(tim);
  end;
  label1.caption := form(tim,min,sek);
  if ((tim=0) and (min=0) and (sek=0)) then
  begin
    timer1.enabled := false;
    showmessage('Tiden er gået');
  end;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  tim := t;
  min := m;
  sek := s;
  label1.caption := form(tim,min,sek);
end;

end.

PS. formateringen kan også laves således:

  label1.caption := format('%2d:%2.2d:%2.2d',[tim,min,sek]);