[問題]如何對資源管理器進行編程 |
|
尚未結案
|
|
wpf
一般會員   發表：11 回覆：22 積分：6 註冊：2002-04-14 發送簡訊給我 |
|
|
wnhoo
高階會員   發表：75 回覆：443 積分：198 註冊：2003-04-22 發送簡訊給我 |
|
|
Justmade
版主 發表：94 回覆：1934 積分：2030 註冊：2003-03-12 發送簡訊給我 |
|
|
wpf
一般會員 發表：11 回覆：22 積分：6 註冊：2002-04-14 發送簡訊給我 |
|
|
banson1716
高階會員 發表：55 回覆：182 積分：167 註冊：2002-04-14 發送簡訊給我 |
參考
製作資源檔
http://delphi.about.com/library/weekly/aa113099.htm?terms=res
------------------------------------------------------------------
用Image Editor編輯一個鼠遊標
（Fild | New | Resource File）
新建一個 CURSOR_1 的 CURSOR, 設定好它的 Hot Spot
（Cursor | Set Hot Spot）
存檔時注意要和建立的Project存在同一個目錄
在本例我們先假定為 MyCursor.res
二. 程序部分
定義一個常數crMyCursor, 這個常數您必須設成大於零
的任何整數， 以 LoadCursor() 函數將自訂的鼠標資源
load 進來， 以下為源代碼：
// unit.pas
unit Unit1;
interface
uses
SysUtils, WinTypes, WinProcs, Messages, Classes,
Graphics, Controls, Forms, Dialogs; const
crMyCursor = 1; (* 宣告一個常數 *)
type
TForm1 = class(TForm)
procedure FormCreate(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
{$R mycursor.res}//這行$R不可少, 否則自訂的鼠遊標就出不來了
implementation
{$R *.DFM}
procedure TForm1.FormCreate(Sender: TObject);
begin //將鼠標資源 load 進來
Screen.Cursors[crMyCursor] := LoadCursor (hInstance,'CURSOR_1');
Cursor := crMyCursor;//指定 form1 的 cursor 為自訂鼠標
Button1.Cursor := crMyCursor;//指定Button1的cursor為自訂鼠標
end;
end.
|
發表時間：2003-05-23 21:36:27
IP:61.167.xxx.xxx 未訂閱
系統時間：2024-05-02 7:04:51
聯絡我們 | Delphi K.Top討論版
| 本站聲明 |
|
1. 本論壇為無營利行為之開放平台，所有文章都是由網友自行張貼，如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權，而損及您的利益，請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨，是藍是綠本站無權干涉，但這裡不是政治性論壇！ |