全國最多中醫師線上諮詢網站-台灣中醫網
發文 回覆 瀏覽次數:1722
推到 Plurk!
推到 Facebook!

變更滑鼠游標的圖案

尚未結案
cake5102000
一般會員


發表:3
回覆:3
積分:1
註冊:2011-05-01

發送簡訊給我
#1 引用回覆 回覆 發表時間:2011-05-15 17:38:06 IP:218.166.xxx.xxx 訂閱
我想用bmp圖檔的圖片變更滑鼠的游標...
當滑鼠移到Image1上時,滑鼠游標就會變成bmp的圖片...
要怎麼做呢??

編輯記錄
cake5102000 重新編輯於 2011-05-15 03:38:49, 註解 無‧
rick060
高階會員


發表:2
回覆:112
積分:217
註冊:2009-11-17

發送簡訊給我
#2 引用回覆 回覆 發表時間:2011-05-16 14:40:22 IP:60.250.xxx.xxx 未訂閱
 var
bmpMask : TBitmap;
bmpColor : TBitmap;
iconInfo : TIconInfo;
crCurrentCursor : Integer;
const
crMyCursor = 5;
procedure TForm1.FormActivate(Sender: TObject);
begin
crCurrentCursor := Screen.Cursor;
bmpMask := TBitmap.Create;
bmpColor := TBitmap.Create;
bmpMask.LoadFromFile('1.bmp');
bmpColor.LoadFromFile('2.bmp');
with iconInfo do
begin
fIcon := false;
xHotspot := 15;
yHotspot := 15;
hbmMask := bmpMask.Handle;
hbmColor := bmpColor.Handle;
end;
Screen.Cursors[crMyCursor] := CreateIconIndirect(iconInfo);
bmpMask.Free;
bmpColor.Free;
end;
procedure TForm1.Image1MouseEnter(Sender: TObject);
begin
Edit1.Text := 'I''m here';
Screen.Cursor := crMyCursor;
end;
procedure TForm1.Image1MouseLeave(Sender: TObject);
begin
Edit1.Text := 'I''m out here';
Screen.Cursor := crCurrentCursor;
end;
cake5102000
一般會員


發表:3
回覆:3
積分:1
註冊:2011-05-01

發送簡訊給我
#3 引用回覆 回覆 發表時間:2011-05-16 17:57:51 IP:218.166.xxx.xxx 訂閱
這好像不是BCB的程式碼...
我需要BCB的程式碼...>"<
s92405054
高階會員


發表:7
回覆:49
積分:101
註冊:2009-04-07

發送簡訊給我
#4 引用回覆 回覆 發表時間:2011-05-16 19:24:10 IP:60.248.xxx.xxx 訂閱
大同小異,想想看應該知道如何轉成BCB ^^"
cake5102000
一般會員


發表:3
回覆:3
積分:1
註冊:2011-05-01

發送簡訊給我
#5 引用回覆 回覆 發表時間:2011-05-17 18:37:10 IP:218.166.xxx.xxx 訂閱
我真的看不懂....

系統時間:2017-12-19 2:16:24
聯絡我們 | Delphi K.Top討論版
本站聲明
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。
2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。
3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇!