Man kann die ergänzte Funktion auch bei den üblicherweise verwendeten Komponenten mit
TWindowsMedia (Mediaplayer1.Media).stretch;
aufrufen.
Ja, das funktioniert sehr gut:
Delphi-Quellcode:
procedure TfrmMain.FormResize(Sender: TObject);
begin
if (MediaPlayer1.State = TMediaState.Playing) then
TWindowsMedia (Mediaplayer1.Media).stretch;
end;