unit mHaupt;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls,ExtCtrls,mNeben,mDialog, MPlayer;
type
  TGui = class(TForm)
  TMediaPlayer: TMediaPlayer;
  private
    Neben : TNeben;
    Dialog: TDialog;
    procedure Neue;
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

var
  Gui: TGui;

implementation

{$R *.dfm}

procedure TGui.Neue;
begin
  Neben := TNeben.Create(Gui,TMediaplayer);
  Neben.Parent := GUI;
  Neben.Name := dialog.Getname;
  Neben.Left := Random(Gui.Width-100);
  Neben.Top := Random(Gui.Height-100);
  Neben.Show;
  dialog.Free;
end;
end.

unit mNeben;

interface

uses
  ExtCtrls, Classes, Dialogs, Sysutils,mplayer;

type
   TNeben = class(TImage)
   private
      FFarbe:String;
      Fmp : TMediaplayer;
      { Private-Deklarationen }
   public
      constructor Create(AOwner:TComponent; mp : TMediaplayer); virtual;
      { Public-Deklarationen }
   end;

implementation

implementation

constructor Neben.Create(AOwner:TComponent; mp : TMediaplayer);
var a :integer;
begin
   a := Random(2);
   inherited create(AOwner);
   case a of
        0 : begin
               FFarbe := 'rot';
               Picture.LoadFromFile('xy.bmp');
               Fmp.FileName := 'xy.wav'
            end;
        1 : begin
               FFarbe := 'gelb';
               Picture.LoadFromFile('xy.bmp');
               Fmp.FileName := 'xy.wav'
            end;
    end;
end;
end.