Wecker - ELEGANTE Lösung mit Abbruch via Button gesucht

[NicoleWagner]

Hallo Leute,

mein Problem ist zweifellos schon zig-fach gelöst. Doch wo genau?
Ich brauche nichts als einen Wecker für 10 Minuten.

1) Es gibt einen "Startknopf", um den Countdown zu beginnen, dessen Methode hier drunter steht.
2) Und es gibt einen "Abbruch-Button", zu dem es noch gar keine Methode gibt.

Delphi-Quellcode:

// Ausführungsprogramm des Countdowns
procedure TForm_KalenderMain.Panel_CountdownClick(Sender: TObject);
Var Startzeit: TTime;
begin
  Startzeit:=DateTimePicker_Alarm;
....  * hier soll irgendwie abgefragt werden, ob seit der Startzeit bereits 10 Minuten vergangen sind. *
  Panel_Alarm.Color:=clGreen;
end;

Meine erste Frage ist die Funttion des Countdowns:
Wie löse ich den Countdown am Elegantesten?
Mit Sleep?
Oder indem ich jede Sekunde die Zeit neu abfrage?
Oder indem ich ....?

Das kann wohl jeder lösen. Irgendwie.
Der Profi hingegen weiß, wie es zu lösen geht, ohne sinnlos Ressourcen zu blockieren, indem ich ständig die Zeit prüfe.
Wofür ich hier danke.

Dann wird es trickreicher:
Es soll noch eine Button geben, der erlaubt, den Alarm abzubrechen.
Dieser Button wird in ein Click-Event führen.
Doch - was dann?
Ich könnte natürlich die Starzeit als globale Variable führen und sie einfach hochsetzen. Das sieht aber richtig hässlich aus vom Stil her.
Ich könnte eine globale Boolean Variable einführen, die den Alarm hält oder nicht. Allerdings müsste ich die neben der Zeit ständig abfrgen und das nur alle 1 Sekunden. Was eine hässliche Verzögerung darstellt.
Ich könnte ein Handle schreiben und gleich ins System greifen. Das sieht mir aber noch hässlicher aus.

Hat hier jemand 2 ELEGANTE Lösungen?
Mit bestem Dank im Voraus.

Nicole

[Sherlock]

Nimm einen TTimer, setze die Zeit wie Du sie möchtest, dann reagiere auf OnTimer. Ausserdem kannst Du TTimer auch aktivieren und Deaktivieren. Der Rest ist trivial.

[NicoleWagner]

Danke für den Tipp!
Der Timer ist jetzt Teil meines Projekts und startet jetzt.
mit
Timer1.Intervall:=...;
Timer1.Enabeled:=true;

So weit so fein.
Wie bringe ich ihn dazu, am Ende einen Sound abzuspielen (bzw. piep piep zu machen) und das Panel rot zu färben?

Mit anderen Worten:
Ich bräuchte ein OnEndTimer-Event.
Das dürfte es auch geben, doch eine Vorlage zu haben, wie ich es schreibe, wäre toll.
Die Schnipsel auf Stackoverflow usw. sind mir nicht so leicht verständlich bzw. recht unübersichtlich.

[peterbelow]

Zitat von NicoleWagner:

Danke für den Tipp!
Der Timer ist jetzt Teil meines Projekts und startet jetzt.
mit
Timer1.Intervall:=...;
Timer1.Enabeled:=true;

So weit so fein.
Wie bringe ich ihn dazu, am Ende einen Sound abzuspielen (bzw. piep piep zu machen) und das Panel rot zu färben?

Mit anderen Worten:
Ich bräuchte ein OnEndTimer-Event.

Den gibt's doch, wie Sherlock in seiner Antwort angab: OnTimer.

[venice2]

Zitat:

Den gibt's doch, wie Sherlock in seiner Antwort angab: OnTimer.

Genau!
Example

Zitat:

Wie bringe ich ihn dazu, am Ende einen Sound abzuspielen.

Addiere eine Wave-Datei zur Ressource.
Addiere MMSystem zu den Uses..

Führe diese Funktion aus.

Delphi-Quellcode:

procedure TForm1.Timer1Timer(Sender: TObject);
begin
  timer1.Enabled := false;
  PlaySound('SOUND1', hInstance, SND_RESOURCE or SND_ASYNC);
  Panel1.Color := clRed;
end;

Davon ab würde ich gar keinen Timer nehmen sondern einen Thread dafür verwenden.

Delphi-Quellcode:

var
  EndAlarm : BOOL;

Delphi-Quellcode:

procedure Alarm(Delay: Integer); stdcall;
var
  //...
begin
  //...

  Repeat
    //... Was auch immer du für die Zeit Berechnung benötigst.
    // Wenn Bedingung erfüllt.
    if (bla = bla) then
    begin
      EndAlarm := True;
      PlaySound('SOUND1', hInstance, SND_RESOURCE or SND_ASYNC);
      Panel1.Color := clRed;
    end;
    Sleep(Delay);
  Until (EndAlarm = True); // globale variable EndAlarm Definieren und über Button auf True setzen. Oder darauf warten bis Bedingung erfüllt
end;

Delphi-Quellcode:

function StartAlarm(Delay: Integer): Integer;
var
  Return: Integer;
  hThread, dwThreadId: DWORD;
begin
  Return := LB_ERR;
  hThread := CreateThread(nil, 0, @Alarm, Pointer(Delay), 0, dwThreadId);

  if (hThread <> 0) then
  begin
    Return := LB_OKAY;
    Sleep(100);
  end;

  CloseHandle(hThread);
  Result := Return;
end;

Aufruf!

Delphi-Quellcode:

if (StartAlarm(60) = LB_OKAY) then
          // bla, bla

[himitsu]

Den Sound kann man Async abspielen, somit hat der Hauptthread garnichts zu tun und ein Thread ist garnicht nötig.

Fazit: Die eleganzeste Lösung ist ein Timer.

[Delphi.Narium]

Der Timer hat ein OnTimer-Event.

Dort schaltest Du als erstes den Timer aus: Timer1.Enabled := false; und dann machst Du in dem Ereignis, was immer Du willst.

Delphi-Quellcode:

procedure TForm1.Timer1Timer(Sender: TObject);
begin
  timer1.Enabled := false;
  Panel1.Color := clRed;
  // ... weiter, wie in jedem beliebigen andern OnClick- oder On...-Ereignis auch.
end;