Zitat von
michback:
Oder muss ich dem Windowsmediaplayer die procedure zuordnen ?
Ja
Zitat von
michback:
Die Class wäre ja TWindowsmediaplayer aber so kann ich die Procedur nicht zuordnen.
Nimm die Zuweisung im Create-Event des Mediaplayers vor.
Delphi-Quellcode:
constructor TWindowsMediaPlayer1.Create(AOwner: TComponent);
begin
inherited;
OnStatusChange := testlauf;
end;