Graphisch Digitale/Analoge Uhr

[Stanlay Hanks]

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