如何在WindowsMediaPlayer 元件上畫線或放置 button 及label等元件 |
尚未結案
|
michaelmichael
一般會員 發表:22 回覆:3 積分:5 註冊:2003-10-09 發送簡訊給我 |
|
japhenchen
高階會員 發表:51 回覆:444 積分:184 註冊:2003-07-23 發送簡訊給我 |
|
trlct
一般會員 發表:9 回覆:14 積分:4 註冊:2004-05-31 發送簡訊給我 |
|
japhenchen
高階會員 發表:51 回覆:444 積分:184 註冊:2003-07-23 發送簡訊給我 |
在wmp的activex元件上放label或shape,都是無法作用的,更別說要解決問題 下載這套元件安裝吧,把wmp那個大象給取代掉
http://www.progdigy.com/ 藏私の禁止
|
trlct
一般會員 發表:9 回覆:14 積分:4 註冊:2004-05-31 發送簡訊給我 |
|
Miles
尊榮會員 發表:27 回覆:662 積分:622 註冊:2002-07-12 發送簡訊給我 |
Hi trlct 兄您好:
插個花, 如下面的程式碼, 我們可以利用SetParent來更換物件的Parent,但前提是元件需要有Handle才行, 所以Button, Edit都可以, Label, Shape卻不行, 而你說的Panel也是有Handle的
procedure TForm1.Button2Click(Sender: TObject); var H : HWND; begin H := FindWindow(nil, 'Windows Media Player'); if not Assigned(MyButton) then begin MyButton := TButton.Create(Self); MyButton.Left := 10; MyButton.Top := 10; MyButton.Name := 'MyButton'; MyButton.Parent := Form1; Windows.SetParent(MyButton.Handle, H); end; end;我不是高手, 高手是正在銀幕前微笑的人. 發表人 - miles 於 2004/06/03 13:30:32
------
我不是高手, 高手是正在銀幕前微笑的人. |
japhenchen
高階會員 發表:51 回覆:444 積分:184 註冊:2003-07-23 發送簡訊給我 |
本站聲明 |
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇! |