一般在使用TTrayIcon都是為自己的程式設TrayIcon,現在我想為其他的程式設TrayIcon卻遇到問題了 我在BCB的Help沒有找到TTrayIcon的說明,於是我到C:\Program Files\Borland\CBuilder6\Include\Vcl\trayicon.h 找到TTrayIcon的宣告,發現有取得設TrayIcon視窗的HWND的函式GetHandle(),但沒找到SetHandle()函式 [code]public: __fastcall TTrayIcon(TComponent* Owner); __fastcall ~TTrayIcon(); virtual void __fastcall Minimize(); virtual void __fastcall Restore(); virtual void __fastcall Update(); virtual void __fastcall ShowMenu(); virtual void __fastcall SetIconIndex(int Value); virtual void __fastcall SetDefaultIcon(); HWND __fastcall GetHandle();[/code] 我再到C:\Program Files\Borland\CBuilder6\Source也沒有到TTrayIcon原始碼 請問還有其他方法嗎

我最後在C:\Program Files\Borland\CBuilder6\Examples\ Controls\Source\trayicon.cpp找到TTrayIcon的原始碼,我想繼承 TTrayIcon元件來取得private區段的TNotifyIconData FData;變數 我另外參考http://sun.cis.scu.edu.tw/~nms9115/articles/delphi/LocalExtension.htm 的方法來繼承TTrayIcon,但有個Delphi語法卻不知道該怎麼改寫成BCB procedure TMyEdit.SetReadOnly(Value: boolean); begin FReadOnly:= Value; inherited ReadOnly:= Value; <==請問這行要改成BCB的語法要怎麼寫 SetColor; end;