Erstellen eines DELPHI-Projektes - Übung
(1) Übungsaufgabe:
Erzeugen Sie ein neues Projekt mit zwei Buttons, einem Label, zwei Panels, fünf Shapes und einem Timer auf einem Formular und beachten Sie folgende Objekttabelle:
| Name des Objekts | Eigenschaft | Neuer Wert |
| FORM1 | Name | Hauptformular |
| BUTTON1 | Caption Cursor Font |
Start/ Stopp CrHandPoint Fett, Schriftgröße 12, unterstrichen, Comic Sans |
| BUTTON2 | Caption Cursor Font |
Spielende CrHandPoint Fett, Schriftgröße 12 |
| LABEL1 | Caption Font |
Unser Brummi auf großer Tour Fett, Schriftgröße 14, unterstrichen, Comic Sans |
| PANEL1 ist die Strasse | Caption Color |
hier den Text löschen schwarz wählen |
| PANEL2 ist die Bauunterlage für den Lastwagen | Caption BevelOuter |
hier den Text löschen byNone (damit die Unterlage beim Programmablauf unsichtbar bleibt) |
| SHAPE1 bis SHAPE5 auf Panel2 platzieren, bei Bedarf auch mehr. | Brush Color Shape |
Farben selbst wählen StRectangle oder stCircle |
| TIMER | enabled interval |
false 1 |
(2) Ihr Formular sieht nun wie folgt aus:
(3) Den zwei Buttons ON CLICK – Ereignisse und dem Timer ein ONTIMER - Ereignis zuordnen.
Ein Doppelclick auf den jeweiligen Button bzw. Timer erzeugt die jeweilige leere Ereignisbehandlungsprozedur.
Start/ Stopp Button: If timer1.enabled=false then timer1.enabled:=true
(Timer an- und ausstellen) else timer1.enabled:=false;
Spielende Button: close;
Timer1: panel2.left:=panel2.left+1;
if panel2.left=900 then panel2.left:=0;
Erklärung für den Timer 1: Die unsichtbare Bauunterlage wird in bestimmten Intervallen um ein Pixel nach rechts versetzt. Sind 900 Pixel erreicht, wird die Unterlage wieder an die linke Formularseite gesetzt.
(4) Programm starten und testen.
Zusatzfrage: Was muss im Programm ergänzt werden, damit der LKW während seiner Fahrt langsam in die
Lüfte entschwebt?