如何改变鼠标的图形? |
|
wnhoo
高階會員 發表:75 回覆:443 積分:198 註冊:2003-04-22 發送簡訊給我 |
|
qoo1234
版主 發表:256 回覆:1167 積分:659 註冊:2003-02-24 發送簡訊給我 |
用一個新的鼠標來替換舊的鼠標,這個新的鼠標並不是delphi所提供的 :
1.把新的Cursor檔案寫入資源檔案中,
然後在程式中
{$R *.Res}
使用LoadCursorFromResouce函數裝入Cursor. 2.還可以使用動畫mouse:
檔案格式為ANI,可以使用Micrsoft的ANIEdit生成
如只改變圖形用cur檔案檔案代替 ani檔案即可 const crMyCursor = 1; procedure TForm1.FormCreate(Sender: TObject);
begin
Screen.Cursors[crMyCursor] :=
LoadCursorFromFile('c:\mystuff\mycursor.ani');
Cursor := crMyCursor;
end; 發表是最好的記憶!
|
JS
一般會員 發表:22 回覆:26 積分:9 註冊:2002-07-20 發送簡訊給我 |
|
hagar
版主 發表:143 回覆:4056 積分:4445 註冊:2002-04-14 發送簡訊給我 |
procedure TForm1.FormCreate(Sender: TObject); begin Screen.Cursors[crMyCursor] := LoadCursorFromFile('c:\mystuff\mycursor.ani'); Cursor := crMyCursor; end;上面的 Cursor := crMyCursor; 這行是指 Form1 的 Cursor 使用 crMyCursor 其它 VCL 或者說 TControl 還是用它原來的 Cursor 得再自行指定各 TControl 的 Cursor 才會生效. --- 每個人都是一本書 |
JS
一般會員 發表:22 回覆:26 積分:9 註冊:2002-07-20 發送簡訊給我 |
本站聲明 |
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇! |