一,如何将鼠标指针换成自己定义的图形???
,如何将鼠标指针换成自己定义的图形,我指的不是DEPHI控件CURSOR 自含的那几种鼠标指针样式,而是能够从自己的图片中导入进去的图片,,,,,或文件, DELPHI能够提供这样的方式么,怎么解决啊????
,如何将鼠标指针换成自己定义的图形,我指的不是DEPHI控件CURSOR 自含的那几种鼠标指针样式,而是能够从自己的图片中导入进去的图片,,,,,或文件, DELPHI能够提供这样的方式么,怎么解决啊????
解决方案 »
- 寻求一种方法,使Dephi可以无须安装就调用Matlab进行绘图(答对加分)
- delphi编写的程序在vista上兼容情况怎样?
- ipaddedit 急!
- ComboBox1KeyDown(Sender: TObject; var Key: Word;Shift: TShiftState);中的key是什么意思?
- 如何实现每页打印标题,我用的是QuickRep。高分请都高手。
- 关于3层结构,客户端问题
- 哪有可用的VF6.0下载
- 如何捕获登陆界面
- 5.richedit1.wantreturns:=True;button1.default:=true;结果运行时在richedit中打回车不能执行Button1,打ctrl+ENter也不行。
- 查找文件的问题
- 寻找线性方程组最小二乘解的算法。
- 请问:IECache,SHDocVw_TLB, SHDocVw,MSDocW_TLB这几个单元是怎么来的?谢了
Screen.Cursor:=1;
用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.