有沒有方法可以common到,如tcombobox和tedit,我都新增了一個function叫init,有沒有方法當我pass一個control,時不用identity也能直接call到init,即是這樣 Sender.Init(); 取代以下: (Sender As TEdit).Init(); (Sender As TComboBox).Init();

略 發表人 - chris_shieh 於 2005/01/14 18:19:56

????

sorry 剛剛貼錯了 已經改正 ＠瞭解越多.懂得越少＠

咦?一個class可以multiple inherited嗎?

sorry Object Pascal 的確是不能直接多重繼承 1.用Class B繼承Class A,再用class C繼承 B的方式 2.用Interface 實作多重繼承 http://www.dreams.idv.tw/~code6421/Doc/Interface.html 總之 個人認為要達到您的目的 關鍵應該是兩個元件都要能夠轉型成相同的物件 發表人 - chris_shieh 於 2005/01/14 18:09:24

這樣應該可以吧?    

 
TMyEdit = class(TEdit)
public
  procedure Init;
end;    TMyComboBox = class(TComboBox)
public
  procedure Init;
end;    TMtEdit(Sender).Init();
TMyComboBox(Sender).Init();    

能否請教 這兩者有何不同？ TMtEdit(Sender).Init(); TMyComboBox(Sender).Init(); (Sender As TEdit).Init(); (Sender As TComboBox).Init(); ＠瞭解越多.懂得越少＠