Ja, mit Button hab ich hingekriegt, aber zählt nicht.
Wo mache ich Fehler?
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
ExtCtrls, StdCtrls;
type
TForm1 =
class(TForm)
Label1: TLabel;
Button1: TButton;
Timer1: TTimer;
procedure Button1Click(Sender: TObject);
private
{ Private-Deklarationen}
public
{ Public-Deklarationen}
end;
var
Form1: TForm1;
implementation
{$R *.DFM}
// Fkt zur Berechnung der Zeitdifferenz
function Time_Diff(Old_Date, New_Date: TDateTime):
string;
var
h, m, s, n: Word;
begin
Old_Date := New_Date - Old_Date;
DecodeTime(Old_Date, h, m, s, n);
Result := Format('
%0.2d', [m]) + '
:' +
Format('
%0.2d', [s]);
end;
procedure TForm1.Button1Click(Sender: TObject);
var
// Variable für die neue Zeit
Plus_Fifteen_Mins: TDateTime;
begin
// Direkt vor dem Starten des Timers musst du natprlich den Wert zuweisen:
Plus_Fifteen_Mins := now + StrToTime('
00:15:00');
label1.Caption := Time_Diff(now, Plus_Fifteen_Mins);
if label1.Caption = '
00:00'
then
begin
Timer1.Enabled := true;
ShowMessage('
Und nun?');
end;
end;
end.