如何在 TImage 使用 CreateCaret,SetCaretPos,ShowCaret ?

eric888 您好：    我正好有一點經驗，或許可供您參考，以下我以簡單的範例來做說明：    1. 我的環境是 Windows 2000 + BCB4。    2. 為了方便，我是將 TImage 放在 TPanel 物件上 (您可以考慮使用其它有 Handle 屬性的物件)。    3. 將 Image 物件的 Align 屬性設為 alClient，將 Stretch 屬性設為 true。    4. Image 載入圖檔的動作不在此作說明，接著是建立 Caret：

#include     HBITMAP hCaret;    void __fastcall TForm1::Button1Click(TObject *Sender)
{
    hCaret = LoadBitmap(0, PChar(OBM_UPARROW));
    CreateCaret(Panel1->Handle, hCaret, 12, 12);
    SetCaretPos(0, 0);
    ShowCaret(Panel1->Handle);
}

作好如上的設定後，當程式執行時點選 Button1 後，將會建立一個 12x12 大小的 "向上箭頭" 圖案作為 Caret，並顯示於 Image1 的左上角 (實際是顯示於 Panel1 上面，但視覺效果上像是顯示在 Image1 上面)。 5. 接著在 Image 的 OnMouseUp 事件中做類似如下的設定：

void __fastcall TForm1::Image1MouseUp(TObject *Sender, TMouseButton Button,
      TShiftState Shift, int X, int Y)
{
    SetCaretPos(X, Y);
}

作好如上的設定後，當程式執行時在 Image1 的任何位置按下滑鼠鍵並放開後，Caret 將會調整顯示位置到該處，您試試看吧。