Da RD1 keine eigene Methode zum links drehen hat, lösen wir zunächst das
Problem dadurch, daß wir im ControlFrm eine Formular-Methode dafür
schreiben und sie dann mit einem neuen Button aufrufen.
1. Aufgabe:
GUI-Methode NachLinksDrehen
im Formular schreiben
a) im INTERFACE-Teil die neue Prozedur deklarieren bei
TControlFrm = class(TFensterFrm)
UserPnl : TPanel;
...
...
procedure NachLinksDrehen;
procedure ItemsErzeugen; // darf nicht gelöscht werden!
end; |
b) im IMPLEMENTATION-Teil unten den Code
procedure TControlFrm.NachLinksDrehen;
// -----------------------------------------------------------------
begin
RD1.RechtsDrehen;
RD1.RechtsDrehen;
RD1.RechtsDrehen;
end; |
2. Aufgabe:
Neuen Button auf das Formular ziehen
|
LinksButton |
Gehen Sie genauso vor wie beim RechtsButton!
Starten und testen!
Merke: Häufig lassen sich
bereits vorhandene Methoden
für andere Aufgaben wiederverwenden!
|
|