Thema: Delphi Stopuhr bauen^^

Einzelnen Beitrag anzeigen

Andreas L.
(Gast)

n/a Beiträge
 
#7

Re: Stopuhr bauen^^

  Alt 25. Jan 2004, 19:23
Danke für eure antworten.

Code:
Undefinierter Bezeichner: MinuteOf
Was nun?

Hier mein Code:

Code:
procedure TForm1.Timer1Timer(Sender: TObject);
begin
  Label1.Caption := TimeToStr(now - StartTime);

  If MinuteOf(now - StartTime) = form2.memo1.text then
    begin
      Timer1.Enabled := false;
      // Hier noch Sound abspielen
    end;
end;

procedure TForm1.SpeedButton3Click(Sender: TObject);
begin
StartTime := now;
Timer1.Enabled := true;
end;
  Mit Zitat antworten Zitat