線上訂房服務-台灣趴趴狗聯合訂房中心
發文 回覆 瀏覽次數:1337
推到 Plurk!
推到 Facebook!

如何控制 Hint 何時出現 ?

答題得分者是:bass15
chtai
高階會員


發表:68
回覆:238
積分:116
註冊:2004-05-21

發送簡訊給我
#1 引用回覆 回覆 發表時間:2005-09-03 01:37:30 IP:210.64.xxx.xxx 未訂閱
請問要如何控制 Hint 何時出現呢 ?    例如現在有一個 ListBox,我希望滑鼠移到某個 Item 之後, 就會顯示 hint,而 hint 的內容就是該 Item 的值 (String)    現在我知道怎麼判斷滑鼠移到哪個 Item 上頭, 可是我不知道該怎麼強迫 hint 馬上顯示出來  請問這有解嗎 ? --
------
My Web: http://nelson.csie.us
My Blog: http://blog.nelson.csie.us
bass15
高階會員


發表:24
回覆:171
積分:119
註冊:2003-10-27

發送簡訊給我
#2 引用回覆 回覆 發表時間:2005-09-03 03:42:07 IP:61.59.xxx.xxx 未訂閱
chtai你好 請把ListBox的ShowHint屬性設成true 並在ListBox的OnMouseMove事件加入下面程式碼:  
     void __fastcall TForm1::ListBox1MouseMove(TObject *Sender,
      TShiftState Shift, int X, int Y)
{
  int Index = ListBox1->ItemAtPos(Point(X,Y), true); //取得指標指到哪一個item
  if(Index<0)    
    ListBox1->Hint = "";  //沒指到就把Hint清空
  else
    ListBox1->Hint = ListBox1->Items->Strings[Index];  //指到就把ListBox1的Hint設成item的值
  Application->ActivateHint(Mouse->CursorPos); //強迫顯示指標所在位置的Hint    }
//---------------------------------------------------------------------------    
chtai
高階會員


發表:68
回覆:238
積分:116
註冊:2004-05-21

發送簡訊給我
#3 引用回覆 回覆 發表時間:2005-09-03 15:45:27 IP:211.72.xxx.xxx 未訂閱
引言: chtai你好 請把ListBox的ShowHint屬性設成true 並在ListBox的OnMouseMove事件加入下面程式碼:
     void __fastcall TForm1::ListBox1MouseMove(TObject *Sender,
      TShiftState Shift, int X, int Y)
{
  int Index = ListBox1->ItemAtPos(Point(X,Y), true); //取得指標指到哪一個item
  if(Index<0)    
    ListBox1->Hint = "";  //沒指到就把Hint清空
  else
    ListBox1->Hint = ListBox1->Items->Strings[Index];  //指到就把ListBox1的Hint設成item的值
  Application->ActivateHint(Mouse->CursorPos); //強迫顯示指標所在位置的Hint    }
//---------------------------------------------------------------------------    
原來有 ActivateHint 這個函式阿~ 又多學了一招,感謝 --
------
My Web: http://nelson.csie.us
My Blog: http://blog.nelson.csie.us
系統時間:2024-05-10 1:51:37
聯絡我們 | Delphi K.Top討論版
本站聲明
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。
2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。
3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇!