Zitat von
michback:
So habe ich es ja bereits versucht. Siehe Oben leider ohne Erfolg
Oben steht eine ganze Menge und was heißt "ohne Erfolg"?
Delphi-Quellcode:
TForm1 = class(TForm)
{...}
procedure MeineStatusChangeMethode(Sender: TObject);
end;
implementation
{...}
procedure TForm1.MachMediaplayer;
begin
MyWindowsMediaPlayer := TWindowsMediaPlayer.Create();
MyWindowsMediaPlayer.OnStatusChange := {Self.}MeineStatusChangeMethode;
end;
Wird eigentlich immer so gemacht.