ich hab zwar delphi 3, aber ich würd das so machen:
(timer einfügen,
enabled=False;
interval=ca. 100)
|
Quellcode
|
1
2
3
4
5
6
7
8
9
10
11
12
13
|
procedure Timer1.Timer(sender: TObject);
begin
if mediaplayer1.position >= mediaplayer1.length then
begin
//Und wieder abspielen lassen, also bei mir:
with mediaplayer do
begin
play;
end;
end;
end;
|
dann machst du, wenn du das stück abspielst, gleichzeitig timer1.enabled auf true. dann wird jede zehntelsekunde überprüft, ob das Musikstück fertig
abgespielt ist, und wenn, wieder abgespielt.
wenn gestoppt wird, timer1.enabled = false nicht vergessen!
mfg
fred