Hi
Mein ganzes Programm wär zu viel Quellcode, von daher beschreib ichs einfach mal mit dem wichtigsten:
Delphi-Quelltext
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
| var x : Integer;
...
for x:=1 to 10 do
begin
Image1.Canvas.Pen.Color:=clBlue;
Image1.Canvas.Brush.Color:=clRed;
Image1.Canvas.Rectangle(a[x],b[x],c[x],d[x]);
Sleep (500);
end; |
Ist vielleicht nicht ganz verständlich was das soll, jedenfalls sollen bei nem Klick auf nen Button 10 Rechtecke im Abstand von ner halben Sekunde auf der TImage - Komponente an verschiedenen Stellen angezeigt werden. Das Problem das ich hab ist nur, dass das Programm die 5 Sekunden lang gar nichts macht (man kann nirgends klicken etc.) und danach erst alle 10 Rechtecke auf einmal angezeigt werden. Wie kann ich es so machen, dass das Programm erstens die ganze Zeit reagiert und zweitens die Rechtecke einzeln gezeichnet werden?
Diese Nachricht wurde mit einer Taschenlampe in das offenliegende Ende eines Glasfaserkabels gemorst!
