Informationen
zur Vertiefung

=======> Botschaften <=======

Das Zusammenspiel der beiden Klassen über Botschaften wird mit GUI-Methoden organisiert.

 GUI-Klasse und Fachklasse verbinden

Programmiertechnisch sind folgende Schritte in TLampenGUI erforderlich:

1. Die Fachklasse der GUI bekannt machen und einbinden bei uses ....:  uTaschenlampe;

2. Ein aktuelles Exemplar für eine Taschenlampe deklarieren bei
    
   var
     LampenGUI   : TLampenGUI;
     Taschenlampe: TTaschenlampe;

3. - Eine Ereignismethode TLampenGUI.FormCreate (Sender: TObject) erzeugen durch
      Doppelklick auf eine leere Formularstelle.
   
   - Aktuelles Exemplar der Taschenlampe erzeugen in dieser Prozedur.
   
   procedure TLampenGUI.FormCreate(Sender: TObject);
   // ----------------------------------------------
   begin
     Taschenlampe := TTaschenlampe.Create;
   end;

4. Den Schalter implementieren mit Doppelklick auf die UpDown-Komponente und codieren
   
   procedure TLampenGUI.SchalterUpDownClick(Sender: TObject; Button: TUDBtnType);
   // ----------------------------------------------------------------
   begin
     if (SchalterUpDown.Position >= 1)
     then
       begin
         Taschenlampe.Einschalten; // leuchtet oder auch nicht
         SchalterUpDown.Position := 0
       end
     else Taschenlampe.Ausschalten;
   
     Darstellen (Taschenlampe);    // Aufruf der Darstellen-Prozedur
   end;

5. Die Prozedur zum Darstellen selbst komplett von Hand schreiben
   
   Procedure TLampenGUI.Darstellen(TLa: TTaschenlampe);
   // ------------------------------------------------------------------
   begin
     If TLa.Leuchtet = true
     Then LampenShp.brush.color := clyellow
     else LampenShp.brush.color := clBlack;
   end;

Das war 's! - Einschalten und leuchten - es werde Licht!

MVC-Konzept

s. Delphi-Hilfe-System

Sequenz-diagramme