is-Logo Karel D. Robot
Manuelle Steuerung

S. Spolwig
1.5

[ Karel ]
Startseite

Ziele:
Button und separate GUI-Methode

Informationen
zur Vertiefung


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!

 

 

 

 

 

Aufbau
einer Unit

 

©  05. Oktober 2008    Siegfried Spolwig

page_top next page