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