|
Registriert seit: 28. Dez 2007
19 Beiträge
Delphi 5 Enterprise
|
Re: Brauche Hilfe zu Threads
30. Dez 2007, 16:57
procedure TForm1.Timer2Timer(Sender: TObject);
var hour,min,sec,msec:Word;
begin
// ######## Das Folgende ist nur ein vereinfachter Test ####
//Pendel
Canvas.Pen.Width := 6;
Canvas.Pen.Color := clBlack;
if sec mod 2 = 1 then
begin
|