Nedtælling

Sæt en TTimer, en TEdit og en TButton på din form. Sæt TTimer's enabled til false og dens interval til 1000. I On Timer skriver du så den kommer til at se således ud:

procedure TForm1.Timer1Timer(Sender: TObject);
var
all: integer;
begin
if edit1.Text= '0' then
begin
showmessage('hehe');
timer1.enabled:= false;
end
else
begin
all:= (strtoint(edit1.Text));
all:= all -1;
edit1.Text:= (inttostr(all));
end;
end;

og i Button1.onclick skriver du:

if edit1.text <> '' then
Timer1.Enabled:= true;

Denne kode skuller gerne virke

Mvh.
Rune Jensen
---------------------------------------------------------------------------
##The one who laugh last is the one who think slowest!##
---------------------------------------------------------------------------

Kom til at lukke delphi (UPS)
Men jeg bruger den. Næste gang jeg laver programmet igen.
Tak

Hej.
Kan i ikke lige skrive hvordan jeg får en edit/label til at tæle ned til 0 fra 40. Nå den har nået 0 skal jeg kunne få en showmessage frem, og så lukke programmet.

Svar gerne hurtigt, da jeg skal bruge koden nu.

Tak.

For at giver jeg et støre spark så har jeg en lille ragl.

Vi koden kommer før kl 11:30 så får han/hun 10 up

12:00 3 up
13:00 2 up
Senere: 1 up

Håper dette er til hjelp:

var
  I: Integer;

procedure TForm1.FormCreate(Sender: TObject);
begin
  I := 40;
  Label1.Caption := IntToStr(I);
end;

procedure TForm1.Timer1Timer(Sender: TObject);
var
  TerminateApp: Boolean;
begin
  if I > 1 then
  begin
    Dec(I);
    TerminateApp := False;
  end
  else
  if I <= 1 then
  begin
    I := 0;
    TerminateApp := True;
  end;
  Label1.Caption := IntToStr(I);
  if TerminateApp then
  begin
    Timer1.Enabled := False;
    MessageBox(Handle, 'Tiden er ute!', ':(', MB_OK + MB_ICONINFORMATION);
    Halt;
  end;
end;

DiZpel

Shit

DiZpel

Kom til at lukke delphi (UPS)
Men jeg bruger den. Næste gang jeg laver programmet igen.
Tak

w00t ? hvis du ikke er klar over det, er der en gem funktion indbygget i delphi

- SpeC - #SpeC.DK @ Q-NET