如何在滑鼠指到的位置旁邊顯示資訊 |
尚未結案
|
TiMac
一般會員 發表:4 回覆:2 積分:1 註冊:2005-03-16 發送簡訊給我 |
|
RedSnow
版主 發表:79 回覆:1322 積分:845 註冊:2003-12-15 發送簡訊給我 |
TiMac 您好: 直接使用 Hint 屬性就可以達到您要求的動作了,但是如果要隨時都能更新 Hint 的內容的話,就需要做些小小的處理才行,以下範例供您參考:
// 於 .h 檔案內: private: void __fastcall DisplayHint(System::AnsiString &HintStr, bool &CanShow, THintInfo &HintInfo); // 於 .cpp 檔案內: void __fastcall TForm1::FormCreate(TObject *Sender) { Application->OnShowHint = DisplayHint; } void __fastcall TForm1::Image1MouseMove(TObject *Sender, TShiftState Shift, int X, int Y) { Image1->Hint = "X=" IntToStr(X) ", Y=" IntToStr(Y); // 設定要顯示的 Hint 字樣 } void __fastcall TForm1::DisplayHint(System::AnsiString &HintStr, bool &CanShow, THintInfo &HintInfo) { if(HintInfo.HintControl == Image1){ CanShow = true; HintInfo.HintStr = HintStr; HintInfo.HintColor = clInfoBk; HintInfo.ReshowTimeout = 50; // 這裡設定更新顯示的延遲時間 (微秒數) HintInfo.HideTimeout = 2000; // 停留指定時間後隱藏 Hint } }上述範例僅顯示出滑鼠座標值,若想顯示其它資訊,請自行添加之,HintInfo 各個屬性的涵義與用途請參考 BCB Help 的說明,並試著將參數值調整為您所需要的效果。 7 天天敲鍵盤 v 時時按滑鼠 8 |
TiMac
一般會員 發表:4 回覆:2 積分:1 註冊:2005-03-16 發送簡訊給我 |
本站聲明 |
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇! |