Wecker Problem

[rulingorc]

Bin noch ein ziemlicher Anfänger und habe versucht einen ganz simplen wecker zu schreiben. soweit bin ich komm aber nicht weiter.

Delphi-Quellcode:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ComCtrls, ExtCtrls, StdCtrls;

type
  TForm1 = class(TForm)
    Timer1: TTimer;
    DateTimePicker1: TDateTimePicker;
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
    procedure Timer1Timer(Sender: TObject);
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Timer1Timer(Sender: TObject);
begin
if now > DateTimePicker1.DateTime then //bin mir nicht sicher ob die entsprechende property .DateTime heisst, musste ma nachgucken
 begin
    TTimer(Sender).Enabled := False;
    beep;
    beep;
    beep;
    Showmessage('AUFSTEHEN!!');
end;

end;

procedure TForm1.Button1Click(Sender: TObject);
begin
Timer1.Enabled:=False;
end;

end.

Kann mir jmd helfen am besten wärs noch heute abend^^ will es jetzt nur noch so hinkriegen, dass ich die zeit einstellen kann und dass man ihn aktiverien kann. danke

[Gremlin]

Hallöchen,

es fehlt noch die Aktivierung des Timers. 2. Button hinzu und machen das es so aussieht.

Delphi-Quellcode:

procedure TForm1.Button2Click(Sender: TObject);
begin
  Timer1.Enabled := True;
end;

[TStringlist]

Ich glaube eher, es liegt an der Time-Property des DateTimePickers. Deren Time-Wert ist nämlich auf diejenige Uhrzeit eingestellt, zu der Du die Komponente auf deine Form gezogen hast. Und dort bleibt sie dann auch fest stehen, und zwar solange bis Du sie event. mal selbst änderst, z.B. im OI, normalerweise jedoch gleich irgendwo im Code (was ich oben aber nicht gesehen habe). Hast Du das also nicht gemacht, dann kann NOW aufgrund einer quasi immer constant zu frühen Uhrzeit natürlich nie größer werden als das DateTime des Pickers.

[blablab]

Wieso stellst du nicht einfach das Intevall des Timers auf die Verbleibende Zeit bis zum Klingeln?
Das ist meiner Meinung nach die einfachste Lösung...