Forum: Object-Pascal / Delphi-Language
Delphi
by Mithrandir,
23. Nov 2009
TMediaPlayer: TMediaPlayer;
Benenn den mal um. Es scheint ja zu compillieren, aber das ist schlechter Stil. Der Name der Komponente lautet so wie der Typ - das tut man einfach nicht.
Weiter im Programm:
Create(AOwner:TComponent; mp : TMediaplayer);
Du übergibst TMediaPlayer als mp im Create an die Klasse. Und dann nutzt du im Constructor selbst fmp. Merkste wat?
Forum: Object-Pascal / Delphi-Language
Delphi
by Mithrandir,
23. Nov 2009
Kurz überflogen:
begin
a := Random(2);
inherited create(AOwner);
case a of
0 : begin
FFarbe := 'rot';
Picture.LoadFromFile('xy.bmp');
Fmp.FileName := 'xy.wav'