Zitat von
n00b_on_knees:
...Irgendwie habe ich Angst vor dem Lehrer, wenn ich nichts wirklich passendes habe. Ich glaube wenn ich ihm meinen mickrigen Quellcode abgebe, schickt er mich noch zurück in die Grundschule
Der soll herkommen
Die
DP steht hinter dir
Aber zu deinem Problem: Die Digitale Uhr dürfte kein Problem sein: Du nimmst ein TLabel (Register "Standard" auf der Komponentenleiste) und einen TTimer (Register "System") und ziehst dir beide auf dein Form. Dann klickst du doppelt auf den Timer und schreibst:
Label1.Caption := TimeToStr(Time);
Die Eigenschaft "Interval" des Timers setzt du im Objektinspektor auf 1000 (Zeit in Millisekunden, nach denen das "onTimer" Ereignis wiederholt ausgeführt wird. Allerdings sollte der Standardwert schon 1000 sein. Ein, bzw. ausschalten kannst du deine Uhr dann indem du
Delphi-Quellcode:
//entweder
Timer1.Enabled := false; //Zum Ausschalten
//oder
Timer1.Enabled := true; //Zum Einschalten
schreibst.
Bei der Analogen Uhr kann ich dir leider wenig weiterhelfen. (Muss wohl irgendwas mit Winkeln zu tun haben
)
Man liest sich, Stanlay