如何在 TImage 使用 CreateCaret |
尚未結案
|
eric888
一般會員 發表:9 回覆:3 積分:2 註冊:2004-09-29 發送簡訊給我 |
|
RedSnow
版主 發表:79 回覆:1322 積分:845 註冊:2003-12-15 發送簡訊給我 |
eric888 您好: 我正好有一點經驗,或許可供您參考,以下我以簡單的範例來做說明: 1. 我的環境是 Windows 2000 + BCB4。 2. 為了方便,我是將 TImage 放在 TPanel 物件上 (您可以考慮使用其它有 Handle 屬性的物件)。 3. 將 Image 物件的 Align 屬性設為 alClient,將 Stretch 屬性設為 true。 4. Image 載入圖檔的動作不在此作說明,接著是建立 Caret:
#include作好如上的設定後,當程式執行時點選 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 將會調整顯示位置到該處,您試試看吧。 |
本站聲明 |
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇! |