我將TwindowsMediaplayer放在form上 windowsMediaplayer.Align:=alClient; 但是当我窗体的大小改變后,播放區域还是那么大,不管這個時候有沒有在播放都是一樣 我查看暸height,width,確實是變暸,黨為什么看上去不會變, 我的繫統的是10.0的,9.0的我也用過,一樣,這么搞定?

------
asdf

yeshiqi兄，不要使用GB转BIG5功能，不然全部是乱码，看不清的。 不知道是不是KTOP转换的问题，请天使大人帮忙看看。

大約可以看出你的問題是你用了 MediaPlayer 10 的時候。 TWindowsMediaplayer 就不會動了。 是不是？？？？^_^ 嘿。三個辦法。 1.把 MediaPlayer 還回去 6.X 的版本。就可以了。 2.去問 M$. 要他們把相容性做好。不過我想。人家那麼大尾。應該會要求下一個。。。。< > > 我覺得，我們都是升斗小民。應該用第一個方法吧。< >

其實是這樣的,就設置windowsMediaplayer.Align:=alClient; 後,表單改變大小,windowsMediaplayer不會跟著改變,一直都是設計時候那麼大,因為我不能用全屏播放,多了幾個控制項在form上,但是我啟動form的時候form要最大化,而且沒有標題欄的,所以沒有辦法一看是放好位置,就只能讓他alClient了 但是他就是不會變,我看了他的height,width的值是變了,但是播放的區域沒有變 我還沒有讓他播放,只是讓他顯示出來就這樣了 asdf

------
asdf

我以前用過的結果是它的 size 跟你的片子的 size 有關。 而不是你指定它。它就會變的。^_^

不是這樣的,如果我設置好大小後在播放他會自動按那個大小播放的,現在跟播放根本就沒有關係,是他的外觀不會安裝我的意思去變啊 asdf

------
asdf

好。我假設你搞懂我說的。在PLAY 時它會依片子大小而變化。 如果你的問題是它不依你的SIZE而是依片子的SIZE。那就沒解了。 而以你所說的在播放前的問題。那以下面的方法去試吧。 這個東西是M＄的東西。 如果你無法順利的依你的想法去處理。 那我們換個方式。 一開始就把 MediaPlayer搞成隱形。 visible = false 在它的位置就用個 pannel 放個假圖上去。 等到按了 play 之後再去把 MediaPlayer 變成可視。 pannel 變成隱形。 這就解決你的問題了。

請大家看看這2個圖片，我設計的時候，mp的位置大小改變都沒有問題，啟動後播放畫面我是不管的，但是在我運行後就改變不了大小了    其實我要播放充滿正個紅色區域的，不過運行是表單做了寫變動，無法在設計的時候改好，所以只能讓他得align:=alclient;或者是運行後判斷區域得大小,直接指定,但是就是不行 發表人 - yeshiqi 於 2005/04/30 11:08:18

------
asdf

這麼圖片都上傳不了啊,暈 謝謝暗黑破壞神得回復,你得辦法不行 比如有這麼一個區域 ----------------------------- | | | | | | | | ----------------------------- 我要wmp充滿他,但是運行時,這個區域會變大,我就時要wmp保持跟他一樣得大小 我讓wmp播放時按比例播放的,所以他會自動在中間播放,而且會儘量大,基本上是寬度或是高度超過才會在兩邊留黑 ,如果我一開始就從把wmp得區域設置為跟這個區域一樣大,那麼運行後區域變大很多,播放得東西就會是在他得左上角了,而我又改變不了,不知道這麼回事,如果是7.0的就不會,開是有些功能我不能用7.0得,所以沒有辦法,要用9.0以上的,不知道說明白了沒有 其實只要大家告訴我這麼在程式運行後改變wmp控制項播放區域的大小就行了, 我的wmp是沒有其他工具顯示的,就是模式none的,我就是要控制在模式為None的情況下這個區域的大小,就是改不了 asdf

------
asdf

我畫的是一個長方型,這麼右邊的線跑到那裏去了 asdf

------
asdf

引言: 好。我假設你搞懂我說的。在PLAY 時它會依片子大小而變化。 如果你的問題是它不依你的SIZE而是依片子的SIZE。那就沒解了。

我已經跟你說得很清楚了。 它在播放期的 size 跟你的片子有關。 你硬不接受，就不用問我了。 再見了。

以下僅提供參考 http://www.delphipages.com/news/detaildocs.cfm?ID=46 WindowsMediaPlayer1.Width := ClientWidth; WindowsMediaPlayer1.Height := ClientHeight; WindowsMediaPlayer1.DoObjectVerb(OLEIVERB_SHOW); or WindowsMediaPlayer1.DoObjectVerb(-1); 可以解決你當Form1 改變大小時 TWindowsMediaPlayer 也會跟著大小。 但指的是非視訊畫面。 我想你要的就是這個吧！ 發表人 - wameng 於 2005/04/30 20:49:34

thanks! 我用SetFocus函數來移動焦點也一樣可以實現,不過沒有斑竹的好用,謝謝 asdf

------
asdf

thanks! 我用SetFocus函數來移動焦點也一樣可以實現,不過沒有斑竹的好用,謝謝

------
asdf

引言: thanks! 我用SetFocus函數來移動焦點也一樣可以實現,不過沒有斑竹的好用,謝謝

能否给出你的代码来？ 我是这样写的。 procedure TForm1.FormResize(Sender: TObject); begin Player.DoObjectVerb(-1); end; 但是当我拉伸Form的时候，感觉使用上面的代码后，对窗体进行拉伸时候，无法改变窗体的大小。只是说Form最大化的时候或者是最小化的时候，能够有这样的效果。