全國最多中醫師線上諮詢網站-台灣中醫網
發文 回覆 瀏覽次數:1756
推到 Plurk!
推到 Facebook!

請問要如何取得設定為Available Forms 的Class呢?

缺席
anumis
一般會員


發表:25
回覆:27
積分:15
註冊:2006-07-14

發送簡訊給我
#1 引用回覆 回覆 發表時間:2007-07-04 10:51:54 IP:61.218.xxx.xxx 訂閱
想把 

<textarea cols="60" rows="10" class="delphi" name="code"> myXForm := TmyXForm.Create(Application); myXForm.Show; </textarea> 改成一段副程式 如: <textarea cols="60" rows="10" class="delphi" name="code"> var TheClass: TPersistentClass; Form: TForm; begin TheClass := GetClass('T' FormName); if (TheClass = nil) then Exit; if TheClass.InheritsFrom(TForm) then begin Form := Tform(TheClass.Create).Create(Application); FreeAndNil(Form); Form.Show; end; </textarea> 可是現在卡在 TheClass := GetClass('T' FormName); 這段 因為GetClass無法找到設定為available forms的Form Class, 試過findclass ,一樣會回傳"找不到"的error 有解決的方法嗎? 感謝
anumis
一般會員


發表:25
回覆:27
積分:15
註冊:2006-07-14

發送簡訊給我
#2 引用回覆 回覆 發表時間:2007-07-04 11:25:57 IP:61.218.xxx.xxx 訂閱
找到解答了(不算最完美)
http://delphi.ktop.com.tw/board.php?cid=30&fid=69&tid=40126
pedro
尊榮會員


發表:152
回覆:1177
積分:865
註冊:2002-06-12

發送簡訊給我
#3 引用回覆 回覆 發表時間:2007-07-04 11:28:39 IP:60.248.xxx.xxx 未訂閱
該文提到,我沒試過,應該可以
在classes.pas中, findClass其實是在RegGroups中找, 因此所有已Register之class應該都可以找的到,
anumis
一般會員


發表:25
回覆:27
積分:15
註冊:2006-07-14

發送簡訊給我
#4 引用回覆 回覆 發表時間:2007-07-05 08:51:23 IP:61.218.xxx.xxx 訂閱
findclass我試過,如果是在available forms內的,會跳error出來,可是如果直接指定class(myForm := TmyForm.Create(self)) 是可以執行的

搞不懂(抓頭)
系統時間:2017-10-19 11:16:26
聯絡我們 | Delphi K.Top討論版
本站聲明
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。
2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。
3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇!