請問怎麼找一個Form裡有什麼元件? |
答題得分者是:deity
|
aresustar
一般會員 發表:9 回覆:8 積分:3 註冊:2008-10-21 發送簡訊給我 |
|
deity
尊榮會員 發表:90 回覆:876 積分:678 註冊:2003-05-09 發送簡訊給我 |
|
aresustar
一般會員 發表:9 回覆:8 積分:3 註冊:2008-10-21 發送簡訊給我 |
===================引 用 deity 文 章=================== 有什么提示? 我试了可以: procedure TForm1.Button2Click(Sender: TObject); var ? i:integer; begin for i := 0 to ComponentCount -1 do ? if Components[i] is TWebBrowser then ??? showmessage('True'); end; 很抱歉我沒說清楚 若我開Delphi程式,直接拉一個TWebBrowser 元件到Form上面 這種方式的確可以 但我碰到的問題是比方說 a, b: TForm a.Parent := b; TWebBrowser 元件可能在a Form上面, 可是我畫面看不出來b Form到底貼了幾個Form 這種情況下我該怎麼確認b Form裡面有沒有含TWebBrowser 元件呢 |
老大仔
尊榮會員 發表:78 回覆:837 積分:1088 註冊:2006-07-06 發送簡訊給我 |
假是WebBrowser是在B裡面的話
試試~ for i := 0 to b.ComponentCount - 1 do... 假是WebBrowser是在A裡面的話 試試~ for i := 0 to a.ComponentCount - 1 do... ===================引 用 aresustar 文 章=================== ===================引 用 deity 文 章=================== 有什么提示? 我试了可以: procedure TForm1.Button2Click(Sender: TObject); var ? i:integer; begin for i := 0 to ComponentCount -1 do ? if Components[i] is TWebBrowser then ??? showmessage('True'); end; 很抱歉我沒說清楚 若我開Delphi程式,直接拉一個TWebBrowser 元件到Form上面 這種方式的確可以 但我碰到的問題是比方說 a, b: TForm a.Parent := b; TWebBrowser 元件可能在a Form上面, 可是我畫面看不出來b Form到底貼了幾個Form 這種情況下我該怎麼確認b Form裡面有沒有含TWebBrowser 元件呢 |
aresustar
一般會員 發表:9 回覆:8 積分:3 註冊:2008-10-21 發送簡訊給我 |
|
deity
尊榮會員 發表:90 回覆:876 積分:678 註冊:2003-05-09 發送簡訊給我 |
procedure Scan(Form: TCustomForm);
var i: integer; begin for i := 0 to Form.ComponentCount - 1 do if Form.Components[i] is TCustomForm then Scan(Form.Components[i] as TCustomForm) else if Form.Components[i].className = 'TWebBrowser' then showmessage(Form.components[i].Name); end; procedure TForm1.Button2Click(Sender: TObject); var i: integer; begin for i := 0 to Application.ComponentCount - 1 do Scan(TCustomForm(Application.Components[i])); end; |
本站聲明 |
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇! |