stretchToFit в TWindowsMediaPlayer

[Cepguo]

Не знаю, к какому здесь разделу отнести Active X компонент TWindowsMediaPlayer,
столкнулся с тем, что свойство stretchToFit в TWindowsMediaPlayer работает, но
окно маштабируется только до определённого размера ?

[Cepguo]

При выполнении надо заново выставлять:

MediaPlayer->stretchToFit = true;

А может кто-нибудь дать пример получения Player->OnMediaChange = OnMediaChange; ?

[digitalis]

А это точно - синтаксис Делфи ? Народ сумлявается. -> - у Делфи отродясь не бывало.

MediaPlayer->stretchToFit = true;

[Cepguo]

MediaPlayer - это ActiveX компонент TWindowsMediaPlayer, импортированный из системной wmp.dll ОС Windows,
вот статья об этом: https://chapmanworld.com/windows-med...yer-in-delphi/
Есть один нюанс: если компонент не кидать на форму во время созидания,
а создать динамически позже при выполнении, после процедуры FormCreate(TObject *Sender),
то можно наблюдать чёрное окно размером с видео, даже если стоит MediaPlayer->Align = alClient.
тут выход простой: на время создания и загрузки видео нужно сделать его невидимым

MediaPlayer->Visible = false

, а к моменту проигрыша

MediaPlayer->playState==wmppsPlaying

включить

MediaPlayer->Visible = true

см.@

[Cepguo]

Но остаётся видимым само окно формы ...
Чтобы оно появлялось вместе с окном проигрывателя - см.@

[Cepguo]

Кто найдёт более простой способ - пишите.