Forum: Multimedia
Delphi
by blauweiss,
22. Apr 2010
Hi AlexII, gern geschehen :thumb:
Forum: Multimedia
Delphi
by blauweiss,
22. Apr 2010
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
Forum: Multimedia
Delphi
by blauweiss,
22. Apr 2010
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:
procedure TfVideoMSMP.MyFormSize(var Msg: TMessage);
begin
inherited;
Msg.Result := 0;
...
Forum: Multimedia
Delphi
by blauweiss,
22. Apr 2010
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:
OldWindowState: TWindowState;
procedure MyFormSize(var Msg: TMessage); message...
Forum: Multimedia
Delphi
by blauweiss,
22. Apr 2010
Hi AlexII,
ich hab nachgeschaut, das Problem mit dem Form-Resizing hatte ich hiermit in den Griff bekommen.
Im Private-Teil der Form:
InSizing: boolean;
procedure MyFormSizing(var Msg: TMessage); message WM_SIZING;
procedure MyFormExitSizeMove(var Msg: TMessage); message WM_EXITSIZEMOVE;
Forum: Multimedia
Delphi
by blauweiss,
15. Apr 2010
Hallo Alex
probier mal im OnResize der Form diese Zeile:
WindowsMediaPlayer.DoObjectVerb(OLEIVERB_SHOW);
blauweiss