我在MainMenu中的Hint設一些說明的字串，不過執行時，滑鼠移到上面卻沒有hint出現，我在MainMenu中找不到ShowHint呀！    設定的畫面如下，是不是我的GroupIndex設錯之類的？     

這問題 我尋找了之前的文章 沒有人問我這類的 該不會mainmeau不能顯示hint吧

引言: 我在MainMenu中的Hint設一些說明的字串，不過執行時，滑鼠移到上面卻沒有hint出現，我在MainMenu中找不到ShowHint呀！ 設定的畫面如下，是不是我的GroupIndex設錯之類的？

waterfat你好： 我覺得這類問題很少探討的原因是因為會用 >! 首先，一般的元件，顯示 class="code">1. 有給Hint值 2. Form1->ShowHint=true;(設假元件的parent皆為Form1)應該就沒問題了! 而你會問"我在MainMenu中找不到ShowHint呀！"的原因我想應該是看了站上一篇有關Hint的文章，想找MainMenu的ShowHint屬性，然後把它設為true! 但這是不對的(設ShowHint屬性…的說明可見TControl::Hint的說明)，因為TMenuItem或TMainMenu物件並不繼承自TControl物件，所以有關TMenuItem的所有Hint相關事項都不可以跟TEdit、TButton等物件同理類推，因為TEdit、TButton的Hint等屬性是繼承自TControl物件的! 而TMenuItem的Hint屬性其實是TmenuItem這個物件自已定義的屬性!注意TMainMenu是沒有Hint屬性的! 嗯，講到重要了，既然TMenuItem物件的Hint所有東東都不是繼承自TControl，而且我們也還不知道TMenuItem設計上對Hint的表現方式，所以我覺得目前我們還不能武斷的說TmenuItem的Hint show不出來!搞不好TMenuItem的Hint設計上就是不這樣顯示的! 不過很久以前我寫過virtual basic，印像中它好像是可以如願show hint的! 目前只能找到唯一show TMenuItem Hint值的方式也是只有TApplication::Hint這個說明中的範例了：

void __fastcall TForm1::FormCreate(TObject *Sender)
{
 Form1->ShowHint=true;
 Application->ShowHint=true;     Application->OnHint=DisplayHint;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::DisplayHint(TObject *Sender)
{
 i++;
 Form1->Caption=i;     StatusBar1->SimpleText = GetLongHint(Application->Hint);
}    

這個範例是說TMenuItem的Hint值可以借由StatusBar顯示出來! 而我們可以自行在DisplayHint事件中加入判斷變數，證明每次點選不同MenuItem時或是滑鼠移至TEdit、TButton等物件上停留時，這個事件都真的有觸發，只是TEdit、TButton等物件會自行show出白框框的Hint值，而TMenuItem物件目前認定應該是不行的! 圖例： 所以這個範例是不是唯一能show TMenuItem物件的Hint值的方式，還不得而知! 以上一點淺見提供! 發表人 -

補充一下:    How can I show menu hints in the StatusBar?  http://thunder.prohosting.com/~cbdn/e002.htm    

/*生活是一種藝術,用心生活才能享受生活*/

大家好 這是小弟取自TMenuItem::Hint中的說明:  

引言: Set Hint to a string that provides more information about the meaning of the menu item than the Caption. The hint text appears in a Help Hint window when the user pauses with the mouse over the menu item if Help Hints are enabled (that is, if the Form? and the Application? ShowHint properties are true). It is also available for the code in the application? OnHint event handler.

紅色部分明白表示了只要把MainMenu所在的Form和Application的ShowHint設為 true就可以讓MainMenu的Hint使用"Help Hint window"顯示... 然而小弟測試結果失敗< > 提供出來讓各位大大作個參考< > 程式迷人之處,在於邏輯思考,然而卻也是惱人之處~~

各位好 小弟今天剛好詢問到一位很有經驗的工程師 他說的方法不錯 建立一個新的panel或image 在mainmeanu上的OnMouseMove事件上 抓到座標 再將panel或image顯示出來 image可以做比較漂亮外觀 框透明化 給各位參考

引言: 各位好 小弟今天剛好詢問到一位很有經驗的工程師 他說的方法不錯 建立一個新的panel或image 在mainmeanu上的OnMouseMove事件上 抓到座標 再將panel或image顯示出來 image可以做比較漂亮外觀 框透明化 給各位參考

waterfat你好< >： 你的意思很清楚，如果我沒猜錯的話，你是要自行做出 >? 老實說，我覺得這在想法上沒什麼新意(沒惡意的< >)，因為我覺得大家都會想到這麼做的，因為只要想要的功能>做"出這樣的一個功能啦，對吧! 而本篇的幾位回覆的弟兄沒有直接寫出範例模擬這樣的功能原因，我想是因為大家的著眼點都是在想為什麼 >!其實站上高手一堆，像 >! 當然，虎爛了一堆，我也做一個測試小範例： <>> < class="code"> ~~~ class TForm1 : public TForm { __published: // IDE-managed Components TMainMenu *MainMenu1; TMenuItem *Program1; TMenuItem *System1; TMenuItem *Java1; TMenuItem *Builder1; TEdit *Edit1; TEdit *Edit2; void __fastcall FormCreate(TObject *Sender); private: // User declarations public: // User declarations __fastcall TForm1(TComponent* Owner); void __fastcall TForm1:: MyHint(TObject* Sender); }; In Unit.cpp ~~~

void __fastcall TForm1::FormCreate(TObject *Sender)
{
 Edit1->Visible=false;
 Edit2->Visible=false;
 Edit1->ReadOnly=true;
 Edit2->ReadOnly=true;     Application->OnHint=MyHint;
}
//---------------------------------------------------------------------------
void __fastcall TForm1:: MyHint(TObject* Sender)
{
 int x=GetMenuState(Program1->Handle,0,MF_BYPOSITION);
 int y=GetMenuState(Program1->Handle,1,MF_BYPOSITION);     if (x==MF_HILITE) {
     Edit1->Visible=true;
     Edit2->Visible=false;
 }
 else if (y==MF_HILITE) {
     Edit1->Visible=false;
     Edit2->Visible=true;
 }
 else {
     Edit1->Visible=false;
     Edit2->Visible=false;
 }
}    

圖例： 滑鼠在MenuItem上任意移動--> 滑鼠離開所有MenuItem--> 嗯，還不太好，但像不像三分樣，再花心思做一下，效果應可以接受的，That's all! 發表人 -

引言:

引言: 各位好 小弟今天剛好詢問到一位很有經驗的工程師 他說的方法不錯 建立一個新的panel或image 在mainmeanu上的OnMouseMove事件上 抓到座標 再將panel或image顯示出來 image可以做比較漂亮外觀 框透明化 給各位參考

waterfat你好< >： 你的意思很清楚，如果我沒猜錯的話，你是要自行做出 >? 老實說，我覺得這在想法上沒什麼新意(沒惡意的< >)，因為我覺得大家都會想到這麼做的，因為只要想要的功能>做"出這樣的一個功能啦，對吧! 而本篇的幾位回覆的弟兄沒有直接寫出範例模擬這樣的功能原因，我想是因為大家的著眼點都是在想為什麼 >!其實站上高手一堆，像 >! 當然，虎爛了一堆，我也做一個測試小範例： <>> < class="code"> ~~~ class TForm1 : public TForm { __published: // IDE-managed Components TMainMenu *MainMenu1; TMenuItem *Program1; TMenuItem *System1; TMenuItem *Java1; TMenuItem *Builder1; TEdit *Edit1; TEdit *Edit2; void __fastcall FormCreate(TObject *Sender); private: // User declarations public: // User declarations __fastcall TForm1(TComponent* Owner); void __fastcall TForm1:: MyHint(TObject* Sender); }; In Unit.cpp ~~~

void __fastcall TForm1::FormCreate(TObject *Sender)
{
 Edit1->Visible=false;
 Edit2->Visible=false;
 Edit1->ReadOnly=true;
 Edit2->ReadOnly=true;     Java1->Hint="我最會的語言";
 Builder1->Hint="去年年底學的";     Application->OnHint=MyHint;
}
//---------------------------------------------------------------------------
void __fastcall TForm1:: MyHint(TObject* Sender)
{
 int x=GetMenuState(Program1->Handle,0,MF_BYPOSITION);
 int y=GetMenuState(Program1->Handle,1,MF_BYPOSITION);     if (x==MF_HILITE) {
     Edit1->Visible=true;
     Edit2->Visible=false;
 }
 else if (y==MF_HILITE) {
     Edit1->Visible=false;
     Edit2->Visible=true;
 }
 else {
     Edit1->Visible=false;
     Edit2->Visible=false;
 }
}    

圖例： 滑鼠在MenuItem上任意移動--> 滑鼠離開所有MenuItem--> 嗯，還不太好---> 只是單純用TEdit當做Show Hint值的白色方塊(style什麼的要橋一下，才會像)，然後是固定長在Form1上的，不是動態跟著滑鼠走的…等等等! 花心思強化一下，效果應可以接受的，That's all! 發表人 - >< face="Verdana, Arial, Helvetica">