TMain - Goethe Gymnasium Dortmund

Beachte im Folgenden, dass diejenigen Methoden, welche man mit den
Ereignissen verknüpfen will, in ihrer (obigen) Deklaration den Parameter
(Sender: TObject) haben müssen, obwohl jetzt bei dem eigentlichen Ereignis-
Methode-Verknüpfungsbefehl dieser Parameter gar nicht erwähnt wird.
constructor TAmpel.Create(AOwner: TComponent);
begin
inherited Create(AOwner);
OnPaint := FormPaint;
OnResize := FormResize
end;
end.
TZeitenliste
+ ! create(),
+ ! fuegEin(n),
+ ! loesche,
+ ? minimum,
+ ? maximum,
+ ? durchschnitt
1
TListbox
unit mZeitenliste;
……..
type
TZeitenliste = class(TForm)
private
LBox: TListBox;
public
constructor Create(AOwner: TComponent); override;
procedure Fuegein(n:Integer);
procedure Loesche;
function Minimum: INTEGER;
function Maximum: INTEGER;
function Durchschnitt: INTEGER;
end;
……..
procedure TZeitenliste.Loesche;
BEGIN
LBox.Clear
END;
12