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

OOP的問題

答題得分者是:speedup
SuperLowB
初階會員


發表:96
回覆:77
積分:34
註冊:2003-06-11

發送簡訊給我
#1 引用回覆 回覆 發表時間:2005-09-15 13:05:18 IP:203.198.xxx.xxx 未訂閱
請問在OOP 的delphi裏如果 TcomboBox3是inherited from TComboBox2, 而TComboBox2 是inherited from TComboBox 這様...Delphi 有什麼function 可以知道TComboBox3的parent是TComboBox2或TComboBox 呢?
speedup
資深會員


發表:19
回覆:259
積分:280
註冊:2003-07-04

發送簡訊給我
#2 引用回覆 回覆 發表時間:2005-09-15 13:46:53 IP:220.139.xxx.xxx 未訂閱
你可以先用物件的ClassParent取得直屬祖先的類別 ,再由ClassName獲得該類的名稱 eg.  Showmessage(ComboBox3.ClassParent.ClassName);      Delphi的Sample
procedure TForm1.Button1Click(Sender: TObject);    var
  ClassRef: TClass;
begin
  ListBox1.Clear;
  ClassRef := Sender.ClassType;
  while ClassRef <> nil do
  begin
    ListBox1.Items.Add(ClassRef.ClassName);
    ClassRef := ClassRef.ClassParent;
  end;    end; 
混心雜欲 棄修身~唉
------
唉~
系統時間:2024-03-29 7:50:15
聯絡我們 | Delphi K.Top討論版
本站聲明
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。
2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。
3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇!