Digital ist einfacher.
Ich hatte vergessen, bei dem 1000-er Timer den ms-Wert auf 0 zu setzen.
Aber wenn du TChart hast - das kann neuerdings(oder nicht) eine analoge Uhr darstellen.
Oder - ganz tricky - nimm einen TWebbrowser und schreibe:
Delphi-Quelltext
1:
| Webbrowser1.Navigate('http://88.198.45.22/designs/clock.swf?color=0xFF0000'); |
- zu Beginn des Rennens. 0xFF0000 kannst durch 0xFARBE nach dem RGB-Muster verändern.
Sonst kannst du dir eine Seite einrichten, auf die du verweist, mit dem Code im Body-Teil:
<!-- Kopieren //-->
<object
classid="clsid:d27cdb6e-ae6d-11cf-96b8-444553540000"
codebase="
fpdownload.macromedi.../flash/swflash.cab#v
ersion=8,0,0,0" width="150" height="150" id="clock"
align="middle">
<param
name="allowScriptAccess" value="sameDomain"
/>
<param name="movie"
value="http://88.198.45.22/designs/clock.swf?color=0xAAAAAA" /><param
name="quality" value="high" /><param name="bgcolor"
value="#000000" /><embed
src="http://88.198.45.22/designs/clock.swf?color=0xDDDDDD"
quality="high" bgcolor="#000000" width="150"
height="150" name="clock" align="middle"
allowScriptAccess="sameDomain" type="application/x-shockwave-flash"
pluginspage="http://www.macromedia.com/go/getflashplayer"
/>
</object>
<!-- Bis hier //-->
Aber das hat jetzt schon nichts mehr mit Delphi zu tun.
Aber die Uhr kann ich nur empfehlen, da das Design auch cool ist.