TMain - Goethe Gymnasium Dortmund

procedure TMain.machHintergrundBlau(Sender:TObject);
begin
Main.Color := $00FF0000
end;
procedure TMain.bewegeBild(Sender:TObject);
begin
IF (hatBild.Left + hatBild.Width > Main.Width-10) OR
(hatBild.Left < 0) THEN delta := -delta;
hatBild.Left := hatBild.Left + delta
end;
Constructor TMain.Create(AOwner: TComponent);
Begin
Inherited Create(AOwner);
{wichtig, damit überhaupt erst einmal ein leeres
Formblatt erzeugt wird.}
SetBounds(100,0,400,150); // left, top, width,
// height von Main
hatButton := TButton.Create(Main);
{Damit steht hatButton in der Komponentenliste des
Formblattes Main}
With hatButton DO BEGIN
Parent := Main; {Damit wird festgelegt, in
welchem Elternfenster der Button erscheint}
SetBounds(150, 40, 150, 70); //innerhalb von Main
Caption := 'Blau';
OnClick := machHintergrundBlau
END;
hatBild := TImage.Create(Main);
hatBild.Picture.LoadFromFile('Dog.ico');
hatBild.AutoSize := True;
hatBild.Parent := Main;
hatTimer := TTimer.Create(Main);
hatTimer.Interval := 10;
hatTimer.OnTimer := bewegeBild;
{Timer sind keine visuellen Objekte, benötigen also
auch keine Parentangabe}
delta := 1;
end; // of TMain.FormCreate
end. // of Hauptprogramm
8