WinMediaPlayer lässt sich auf einem Form nicht maximieren?

[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