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.