|
Dazu sind folgende Schritte erforderlich:
- Kontrollieren Sie, ob alle GUI-Komponenten einen richtigen Namen
haben.
Das ist für die nächste Aktion wichtig, weil mit diesen Namen
automatischen entsprechende Methoden erzeugt werden.
- Erzeugen Sie durch Doppelklick auf die Buttons die entsprechende
Ereignisbehandlungsprozedur, die dadurch in den Programmtext geschrieben
wird. Sie werden in der Reihenfolge eingesetzt, in der Sie sie
anklicken.
- Erzeugen Sie durch Doppelklick auf das Fensterformular die Prozedur
FormCreate (...)
- Ergänzen Sie die Prozedur
EndeBtnClick
mit der Zeile :
FensterFrm.Close
- Fügen Sie in allen anderen Steuerbutton-Prozeduren Meldungen ein (in
Hochkommata) :
.. ist noch nicht fertig ... (s.
Hinweis)
- Im der Fensterleiste oben soll der Programmname, die
Versionsnummer und der Hersteller stehen und beim Anklicken
der Funktionen Neu, Anzeigen, Ändern, ... ein Hinweis, was der
Benutzer gerade gewählt hat.
- Schreiben Sie eine private Methode
Init, mit der Sie
alle Editfelder bei Bedarf leeren können:
Etwa so:
procedure TFensterFrm.Init;
(* ------------------------------------------------------- *)
begin
FensterFrm.Caption := ' Mandant 2002 - V. 0.9 von Elli Pirelli';
NameEdt.Text := '' ;
...
...
end;
Diese Methode ruft man zum erstenmal am besten in der Methode
FensterFrm.FormCreate
auf, die Sie mit einem Doppelklick auf das Fensterformular erzeugen.
|