[delphi]czasomierz

0

Mam problem z moim czasoodliczaniem tzn. wszystko jest (prowizorycznie) ok. robię buttony, robie kod, zapisuje projekt, I włączam program.Sprawdzam:
Ustawiam spinedit.Klikam na przycisk START i...nic,nul,zero.No i ludzie pomóżcie co ja źle zrobiłem???
POniżej macie kod:

unit Unit1;

interface

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

type
TForm1 = class(TForm)
Start: TButton;
Stop: TButton;
Timer1: TTimer;
Label1: TLabel;
SpinEdit1: TSpinEdit;
procedure Timer1Timer(Sender: TObject);
procedure StartClick(Sender: TObject);
procedure StopClick(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;
sekundy: integer;

implementation

{$R *.dfm}

procedure TForm1.Timer1Timer(Sender: TObject);
begin
sekundy:=sekundy-1;
label1.Caption:=SpinEdit1.Text;
end;

procedure TForm1.StartClick(Sender: TObject);
begin
timer1.Enabled:=true;
end;

procedure TForm1.StopClick(Sender: TObject);
begin
timer1.Enabled:=false;
end;

end.

0

&gtsekundy:=sekundy-1;
&gtlabel1.Caption:=SpinEdit1.Text;

Może lepiej: label1.Caption:=IntToStr(sekundy)--Vogel [Delphi 6 PE]

I TY możesz nauczyć się grać w bierki!

0

Ja tam bym uzyl DX Timer. Lepszy jest--Wirek
e-mail : [email protected];
[email protected].

0

może:
spinedit1.Value:=spinedit1.Value-1 ;

1 użytkowników online, w tym zalogowanych: 0, gości: 1