Grafische Benutzungsoberfläche (GUI)
Problemanalyse
Diese Übung ist ein sogenanntes Mickey-Mouse-Programm, das kein Problem löst, aber
trotzdem schon ein vollständiges Lazarus-Projekt darstellt. Mit Hilfe dieses Beispiels soll in die Benutzung der grafischen Programmieroberfläche (GUI) eingeführt werden.
Das Programm soll die Farbe und den Text einer
Bildschirmkomponente (Panel) ändern, wenn man auf einen entsprechenden
Button drückt.
Legen Sie zunächst im Betriebssystem einen neuen Ordner mit dem Namen uebung1 an. Öffnen Sie dann Lazarus und legen Sie ein neues Projekt nach diesem Muster an. Dateiname: uFenster.pas, Projektname: ueb1 an.
Jetzt bitte die folgenden Schritte zur Implementation des Programms ausführen:
GUI-Komponenten festlegen
Ziehen Sie mit der Maus aus der Komponentenleiste "Standard" zwei Buttons und 1 Panel auf das Form1-Fenster.
-
GUI-Komponenten umbenennen mit dem Objektinspektor, wie im Info-Blatt beschrieben.
- Die Bezeichner (Name) für die Buttons sollen heißen : RotBtn, EndeBtn
- für das Panel : MeldePnl
- für das Formular (Form1) : FensterFrm
-
GUI-Komponenten beschriften (was auf den Komponenten draufstehen soll)
bei Caption eintragen: bei RotBtn: Rot, bei EndeBtn: Ende, bei MeldePnl: (leer machen)
-
Schrift für die Komponenten festlegen
Jeweilige Komponente mit linker Maustaste aktivieren und in dem Objektinspektor: auf TFont ... klicken und dann die Schrift auswählen.
-
Ereignisprozeduren (Methoden) mit Doppelklick erzeugen:
(gleich merken: Immer nur so; nie von Hand hineinschreiben!!)
Doppelklick auf RotBtn
Damit wird automatisch folgende Prozedur in die Fenster-Unit geschrieben:
Procedure TFensterFrm.RotBtnClick (Sender: TObject);
begin
end;
Fügen Sie zwischen begin und end die Zeile:
MeldePnl.Color:= clRed ;
nach 2 Leertasten ein.
Damit wird der Variablen 'Color' des Panels beim Programmablauf die Farbe Rot zugewiesen.
(Welche Farben es gibt, erfahren Sie, wenn Sie im Objektinspektor bei der Eigenschaft Color von Panel nachsehen.)
Um den Ausgabe-Text auf dem MeldePanel zu ändern, fügen Sie in der Ereignisprozedur TFensterFrm.RotBtnClick zusätzlich die Zeile:
MeldePnl.Caption := 'hier ist mein Text - bla, bla, bla' ;
ein in Hochkommata.
Und nun den EndeBtn bearbeiten:
Doppelklick auf EndeBtn
In die Ereignisprozedur die Zeile:
Close ;
einfügen.
-
Programm testen
dazu Speedbar.GruenesDreieck.Klicken (Run)
Good luck!
Diese Anleitung bezieht sich auf ein Beispiel für Delphi von Siegfried Spolwig.
