WinMediaPlayer lässt sich auf einem Form nicht maximieren?

[blauweiss]

Zitat von AlexII:

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 !
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

Delphi-Quellcode:

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

im FormShow (oder FormCreate)
  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