有沒長官知道下面這段要如何翻成 BCB 版 ?? 3Q if (AControl is TWinControl) or (AControl is TGraphicControl)

從Help的sample看到的...

 
    TClass ClassRef;
    ClassRef = Button1->ClassType();
    ClassRef = ClassRef->ClassParent();
    ShowMessage(ClassRef->ClassName());

會顯示TButtonControl 不知道是不是您要的... BCB學習中~~ 發表人 - collonil 於 2003/07/04 18:14:08

if (AnsiString(AControl->ClassType()->ClassParent()->ClassName()) == "TWinControl" || AnsiString(AControl->ClassType()->ClassParent()->ClassName()) == "TGraphicControl") BCB學習中~~

感謝長官 我也是這麼試的,但我想跟 delphi 的 is 一樣,應該有個更簡潔的 Operator 來做比對 ....

if (AControl->InheritsFrom(__classid(TWinControl)) || AControl->InheritsFrom(__classid(TGrapicControl)))    -- BCB學習中~~

當我在回答    ■【問題】當物件被Free之後,指向該物件的所有物件指標如何察覺?  http://delphi.ktop.com.tw/topic.php?TOPIC_ID=33381    時，所查的資料是： 在 DELPHI 中的 is(用在判斷式) 與 as(用在指定式) 在 BCB 中都是 dynamic_cast< >     以本例 DELPHI 判斷式：

if (AControl is TWinControl) or (AControl is TGraphicControl)

轉成 BCB 就是：

if ( dynamic_cast(AControl)
  || dynamic_cast(AControl) )

舉個 DELPHI 指定式的例子：

   BControl := AControl as TWinControl;

轉成 BCB 就是：

   BControl = dynamic_cast(AControl);

剛看到本篇的標題，我還以為 bruce0211 大大已有 ■【問題】判斷視窗類別並取得其文字 http://delphi.ktop.com.tw/topic.php?TOPIC_ID=30792 的解答了... 沒空更新的網頁... http://dllee.ktop.com.tw C及指標教學,計算機概論,資訊管理導論... http://dllee.adsldns.org 介紹Shells,LiteStep,GeoShell.... 發表人 - dllee 於 2003/07/04 23:00:07

------
http://www.ViewMove.com

哇~~< > 好神奇! 沒想到>>< >

感謝各位長官指導 有你們真好^_^