1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:

unit mHaupt; //version 1

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls,mKuh; // mHaupt benutzt die in unit MKuh, muss hier angemeldet werden



type
  Tgui = class(TForm)
    BtNeueKuh: TButton;
    procedure FormActivate(Sender: TObject);
    procedure BtNeueKuhClick(Sender: TObject);
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

var
  gui: Tgui;
  Kuh:Tkuh; //Zugriffsvariable für ein neues Objekt
implementation

{$R *.dfm}



procedure Tgui.BtNeueKuhClick(Sender: TObject);
begin
Kuh:=TKuh.create(gui);//erzeugen der neuen Kuh, die der gui gehört
Kuh.Parent:=gui;

Kuh.Left:= random(gui.clientWidth-120);
Kuh.Top:=random(gui.clientheight-120);
Kuh.Show;
end;

procedure Tgui.FormActivate(Sender: TObject);
begin
randomize;
color :=$005B9D1B;
end;
end.                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:

unit mKuh;  //version 1

interface
uses
ExtCtrls,Classes;

type
TKuh = class(TImage)

private
FFarbe:String;

{Private-Deklaration}
public
constructor create(Aowner:TComponent);

{Public-Deklarationen}
end;


implementation

constructor TKuh.create(Aowner:TComponent);
Var a:Integer;
begin
a:= random(4);
inherited create (Aowner);
case a of 0: begin
             FFarbe := 'rot';
             picture.loadfromfile('Bilder/Fisch1.bmp');
             end;
             1: begin
                FFarbe := 'gelb';
                picture.loadfromfile('Bilder/Fisch2.bmp');
                end;
                   2:begin
                     FFarbe := 'lila';
                     picture.LoadFromFile('Bilder/Fisch3.bmp');
                     end;
                         3: begin
                            FFarbe := 'weiss';
                            picture.LoadFromFile('Bilder/Fisch4.bmp');
                            end;
                            

             end;
             transparent:=true;
             end;
end.                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:

type
  Tgui = class(TForm)
    BtNeueKuh: TButton;
    procedure FormActivate(Sender: TObject);
    procedure BtNeueKuhClick(Sender: TObject);
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;                    

1:
2:

  Self.OnActivate := FormActivate;
  BtNeueKuh.OnClick := BtNeueKuhClick;