Analoge (Stopp)uhr

[Jarmen_Kell]

Dann könntest du auch die TJvClock nehmen.
Die musst du dann bearbeiten.

Es müsste reichen,

Delphi-Quellcode:

function TJvClock.GetSystemTime: TDateTime;
begin
  Result := SysUtils.Time;
  if Assigned(FOnGetTime) then
    FOnGetTime(Self, Result);
end;

procedure TJvClock.GetTime(var T: TJvClockTime);
var
  MSec: Word;
begin
  with T do
    DecodeTime(GetSystemTime, Hour, Minute, Second, MSec);
end;

anzupassen.

Es müsste dann also anstatt der Systemzeit 12:00:00 - eingabe genommen werden.
Da brauchst du dann noch einiges an Rechen- und Denkarbeit, aber das sollte wohl machbar sein (mit probieren auf jeden Fall).

Edit: Alternativlösung: Die Uhr-mal-prozeduren rauskopieren und z.B. auf eine Paintbox (oder Bitmap+Bitblt) anwenden. Dann reicht ein Timer und ne Paintbox und evtl. ein Bmp