wie code ich am besten ein Stroboskop?

[tHeRiAn]

Hi ihr Leudz;

sitz grad vor meinem Bildschirm und wollte mal ein Strobo per mit Schieberegler coden
Nun ja, weit bin ich nicht gekommen

Freu mich auf eure Ideen und anregungen.

mfg therian

[iaby]

Delphi-Quellcode:

repeat
sleep(trackbar1.position)
if form1.color= clBlack then form1.color:= clWhite
else form1.color:= clBlack;
until false;

nicht getestet, sollte aber gehen!

gruss,
iaby

[tHeRiAn]

bin schon selbst drauf gekommen, danke dir

mfg therian