Habe den Timer nun nochmal überarbeitet, nun bekomme ich auch eine Ausgabe nur leider noch nicht so ganz richtig
Zudem habe ich noch ein Problem, das wenn ich Delphi einmal zu hatte, das Programm dann neustarte und z.B. den Timer weiterbearbeiten möchte und auf Play drücke und davor alles funktionierte immmer Form1 kommt, also eine leere Anwendung wie kommt das?
Kann mir jmd sagen wie ich das mit dem Timer nun hinbekomme, das er nicht wenn ich auf Start drücke eine 0 hinschreiben und nicht weitermacht?
Zudem wollte ich noch eine Abfrage mit IF einbauen wenn die Zeit unter 1 geht, soll PC herunterfahrne geht das?
Delphi-Quellcode:
unit mstimer;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
ExtCtrls, StdCtrls;
type
TMS =
class(TForm)
Label1: TLabel;
Label2: TLabel;
Zeit: TEdit;
Restzeit: TLabel;
Start: TButton;
Timer1: TTimer;
procedure Timer1Timer(Sender: TObject);
procedure StartClick(Sender: TObject);
private
{ Private-Deklarationen }
public
x : Integer;
{ Public-Deklarationen }
end;
var
MS: TMS;
implementation
{$R *.DFM}
procedure TMS.Timer1Timer(Sender: TObject);
begin
x := StrToInt(Zeit.Text);
x := x - 1;
end;
procedure TMS.StartClick(Sender: TObject);
begin
Restzeit.Caption := IntToStr(x);
end;
end.