Ereignisse

[dominikkv]

Zitat von MarioM.:

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;

Nein!

Sicher, dass es ein OnStatusChange gibt?

Delphi-Quellcode:

property OnClick: EMPNotify read FOnClick write FOnClick;
property OnContextPopup;
property OnEnter;
property OnExit;
property OnMouseEnter;
property OnMouseLeave;
property OnPostClick: EMPPostNotify read FOnPostClick write FOnPostClick;
property OnNotify: TNotifyEvent read FOnNotify write FOnNotify;

Ansonsten habe ich im Internet noch folgendes gefunden:

TWMStatusChangeEvent = procedure(const State: WideString) of Object;