@naschkatze:
Wenn du 2 kleine Änderungen in deinem geposteten Code machst, dann hast du das gewünschte Ergebnis:
1. In der Procedure BitBtn2Click nimmst du das u.a. raus und kopierst das in die Procedure Timer1Timer
2. Aus der Prozedure Timer1Timer die Zeile mit dem Refresh löschen; das Refresh bewirkt, dass der erstellte Hintergrund mit dem gezeichneten BigBen verschwindet und nur die Uhr angezeigt wird
Delphi-Quellcode:
//--geändert
{--wird nach Timer1Timer verschoben
Pen.Color:=clsilver;
Brush.Color:=clsilver;
Ellipse(575,272,703,390);
}
...
procedure TForm1.Timer1Timer(Sender: TObject);
var winkel : real;
x, y, x1, y1, r, i : Integer;
hour, min, sec, msec : Word;
begin
Form1.Caption:=DateTimeToStr(Now);
//Refresh; <--- das haut dir den zuvor melaten Hintergrund etc wieder weg!!
DecodeTime(Now, hour, min, sec, msec);
r:=60;
//--hier den Kreis für das Zifferblatt neu malen!!
Canvas.Pen.Color:=clsilver;
Canvas.Brush.Color:=clsilver;
Canvas.Ellipse(575,272,703,390);
// Ziffern
...
end;
@ an die anderen: Sorry, aber wenn ihr euch mal 5 Minuten an den Code von naschkatze gesetzt hättet, dann wären euch die kleinen Fehler aufgefallen und ihr hättet eure netten Kommentare sparen können. Sicherlich sind Grundalgen für angehende Delphianer durchaus sinnvoll,, davon mal abgesehen...