Ereignisse

[MarioM.]

Zitat von dominikkv:

Außerdem... ist TWindowsMediaPlayer1 bei dir eine Klasse oder eine Instanz?

Jetzt dachtest Du bestimmt, Du hättest mich - leider muss ich Dich enttäuschen
"TWindowsMediaPlayer1" ist in diesem Fall in der Tat eine Klasse - nämlich die, die ich per Copy&Paste aus Beitrag #3 übernommen habe

Aber auch ich habe nicht richtig gelesen. Ich bin davon ausgegangen, dass er in der Tat eine neue Klasse vom WindowsMediaPlayer ableiten will. Dass er diese abe rnur dynamisch einbinden möchte, habe ich überlesen - mein Fehler

So geht's:

Delphi-Quellcode:

Unit Unit1;

Interface

Uses
   Windows,
   Messages,
   SysUtils,
   Variants,
   Classes,
   Graphics,
   Controls,
   Forms,
   Dialogs,
   WMPLib_TLB;

Type
   TForm1 = Class(TForm)
      Procedure FormCreate(Sender: TObject);
   private
      oMediaPlayer: TWindowsMediaPlayer;

      Procedure Test(Sender: TObject);
   End;

Var
   Form1: TForm1;

Implementation

{$R *.dfm}

Procedure TForm1.FormCreate(Sender: TObject);
Begin
   oMediaPlayer := TWindowsMediaPlayer.Create(self);
   oMediaPlayer.Parent := TWinControl(Sender);
   oMediaPlayer.Align := alClient;
   oMediaPlayer.OnStatusChange := Test;
End;

Procedure TForm1.Test(Sender: TObject);
Begin
   //DoSth
End;

End.

Edit: da war ich wohl nen Minütchen zu langsam. Wurde zu Weihnachten die RedBox abgeklemmt?

[michback]

Zitat von MarioM.:

Zitat von dominikkv:

Außerdem... ist TWindowsMediaPlayer1 bei dir eine Klasse oder eine Instanz?

Jetzt dachtest Du bestimmt, Du hättest mich - leider muss ich Dich enttäuschen
"TWindowsMediaPlayer1" ist in diesem Fall in der Tat eine Klasse - nämlich die, die ich per Copy&Paste aus Beitrag #3 übernommen habe

Aber auch ich habe nicht richtig gelesen. Ich bin davon ausgegangen, dass er in der Tat eine neue Klasse vom WindowsMediaPlayer ableiten will. Dass er diese abe rnur dynamisch einbinden möchte, habe ich überlesen - mein Fehler

So geht's:

Delphi-Quellcode:

Unit Unit1;

Interface

Uses
   Windows,
   Messages,
   SysUtils,
   Variants,
   Classes,
   Graphics,
   Controls,
   Forms,
   Dialogs,
   WMPLib_TLB;

Type
   TForm1 = Class(TForm)
      Procedure FormCreate(Sender: TObject);
   private
      oMediaPlayer: TWindowsMediaPlayer;

      Procedure Test(Sender: TObject);
   End;

Var
   Form1: TForm1;

Implementation

{$R *.dfm}

Procedure TForm1.FormCreate(Sender: TObject);
Begin
   oMediaPlayer := TWindowsMediaPlayer.Create(self);
   oMediaPlayer.Parent := TWinControl(Sender);
   oMediaPlayer.Align := alClient;
   oMediaPlayer.OnStatusChange := Test;
End;

Procedure TForm1.Test(Sender: TObject);
Begin
   //DoSth
End;

End.

Edit: da war ich wohl nen Minütchen zu langsam. Wurde zu Weihnachten die RedBox abgeklemmt?

Danke so hat es funktioniert. Mein Fehler lag darin das ich den Player

 oMediaPlayer := TWindowsMediaPlayer.Create(form1.tabsheet4); erzeugt habe. Und desweiteren hatte ich nicht bei privat delariert sondern in der var Sektion.