Habs auch mal gebastelt aus interesse, wollte aber keinen Code geben damit du auch was lernst
Da du aber schon was erhalten hast, hier meine Lösung.
Funktioniert mit Timern ohne diese Sleep geschichte ^^
Ausserdam können alle Formen gezeichnet werden man muss nur das Array anpassen
Delphi-Quellcode:
Haus := [Point(0,150),
Point(100,150),
Point(100,50),
Point(0,50),
Point(50,0),
Point(100,50),
Point(0,150),
Point(0,50),
Point(100,150)];
Ich will den Code hier nicht posten, da du es eigentlich selber machen solltest. Die Projekt-Dateien inkl. Exe ist aber trotzdem angehängt, falls du es dir trotzdem genauer ansehen willst.
Werde Heute (Montag Morgen) noch was dazu sagen wie das ganze aufgebaut ist bin momentan zu müde - was dummes ist auch noch drinnen ist aber nicht tragisch
Video vom Zeichnen:
https://www.youtube.com/watch?v=pXO80_cRgSw
Freundliche Grüsse