WinMediaPlayer lässt sich auf einem Form nicht maximieren?

[lbccaleb]

Wenn es nicht so will wie du, und es ja offensichtlich keine Lösung gibt, wieso benutzt du die Komponente??

Hatte es mal installiert, und getestet, auch bei mir lässt sich in keiner weise der MediaPlayer an die Form anpassen. Selbst über umgebaute "Umwege" nicht.
Außerdem ist mir aufgefallen, dass die Delphi Applikation mit dem MediaPlayer so extrem langsam läuft und stockt, das es nicht zu empfehlen ist, diesen zu verwenden.

Schaue dich einfach nach einer anderen möglichkeit um, um das Problem zu lösen.

[blauweiss]

Hi AlexII,

ich hab nachgeschaut, das Problem mit dem Form-Resizing hatte ich hiermit in den Griff bekommen.

Im Private-Teil der Form:

Delphi-Quellcode:

    InSizing: boolean;
    procedure MyFormSizing(var Msg: TMessage); message WM_SIZING;
    procedure MyFormExitSizeMove(var Msg: TMessage); message WM_EXITSIZEMOVE;

Im FormCreate:

Delphi-Quellcode:

procedure TfVideoMSMP.FormCreate(Sender: TObject);
begin
  InSizing := false;
...
end

die beiden Methoden:

Delphi-Quellcode:

procedure TfVideoMSMP.MyFormSizing(var Msg: TMessage);
begin
  Msg.Result := 1;
  InSizing := true;
end; // MyFormSizing

procedure TfVideoMSMP.MyFormExitSizeMove(var Msg: TMessage);
begin
  Msg.Result := 0;
  if InSizing then
    WindowsMediaPlayer.DoObjectVerb(OLEIVERB_SHOW);
  InSizing := false;
end; // MyFormExitSizeMove

damit wird nach Resize der Form der Mediaplayer (Align = alClient) an die Größe der Form angepasst.

Grüße,
blauweiss

[AlexII]

Ja es funkt, danke dir! :thumb:

[lbccaleb]

Fehlt da nicht nen "T" vor "Form"??

[AlexII]

Zitat:

Zitat von lbccaleb

Fehlt da nicht nen "T" vor "Form"??

Ja genau, hab das schon gemacht, funkt wunderbar!

Hab jetzt aber das andere Problem, beim Maximieren bleibt der Player so wie er war, wird also nicht mit maximiert.

[blauweiss]

Zitat:

Zitat von AlexII

Zitat:

Zitat von lbccaleb

Fehlt da nicht nen "T" vor "Form"??

Ja genau, hab das schon gemacht, funkt wunderbar!

Hab jetzt aber das andere Problem, beim Maximieren bleibt der Player so wie er war, wird also nicht mit maximiert.

Hi AlexII !

witzig, genau das ist mir in meinem Projekt gerade auch aufgefallen ! :P
Maximieren ist ein Problem, weil es dafür irgendwie kein vernünftiges Event zu geben scheint (oder ich hab nix gefunden).

Habe dafür diese Lösung im Angebot:
Zusätzlich im private-Teil der TForm :zwinker:

Delphi-Quellcode:

    OldWindowState: TWindowState;
    procedure MyFormSize(var Msg: TMessage); message WM_SIZE;

im FormShow (oder FormCreate)

Delphi-Quellcode:

  OldWindowState := WindowState;

und in der Methode MyFormSize:

Delphi-Quellcode:

procedure TfVideoMSMP.MyFormSize(var Msg: TMessage);
begin
  Msg.Result := 0;
  if (WindowState <> OldWindowState) then
    WindowsMediaPlayer.DoObjectVerb(OLEIVERB_SHOW);
  OldWindowState := WindowState; 
end; // MyFormSize

damit funktioniert's bei mir jetzt auch beim Maximize bzw. Wiederherstellen.

Grüße,
blauweiss

[AlexII]

Und bei mir klappt das nicht... :( Dazu noch funktioniert auch dein erster Code nicht, ich meine im Kombination mit dem für maximieren.

[blauweiss]

Und was genau klappt nicht....?

Ich mußte bei mir in der Methode MyFormSize noch ein inherited reinmachen, lag aber daran, daß mein TfVideoMSMP von einer anderen TForm abgeleitet ist:

Delphi-Quellcode:

procedure TfVideoMSMP.MyFormSize(var Msg: TMessage);
begin
  inherited;
  Msg.Result := 0;
  ...

Setz mal einen Breakpoint in diese Routine, kommt der Debugger bei Dir dorthin ?

Grüße,
blauweiss

[AlexII]

Also mit inherited; funktioniert jetzt alles. :thumb:

Aber das Video selbst wird beim maximieren nicht vergrößert, ist das normal so? Wenn man aber auf "Vollbild" klickt wird das Video groß.

PS. weiß du zufällig wie man Zoom im Player per Code ändert?

[blauweiss]

Bei mir wird das Video-Fenster irgendwann auch nicht mehr größer beim Resize, nur der Rahmen drumrum.
Probier mal "FullScreen" auf true zu setzen (hat bei mir auf die Schnelle nicht geklappt, bin gerade an einem anderen Projekt am kämpfen...) 8-)

blauweiss