(CodeLib-Manager)
Registriert seit: 27. Nov 2008
Ort: Delmenhorst
2.379 Beiträge
|
Re: Problem mit dem Mediaplayer
23. Nov 2009, 18:41
Kurz überflogen:
Delphi-Quellcode:
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;
Wann gedenkst du denn, Fmp zu intialisieren?
米斯蘭迪爾 "In einer Zeit universellen Betruges wird das Aussprechen der Wahrheit zu einem revolutionären Akt." -- 1984, George Orwell
|