鼠标形状怎么改呀?(30分)

  • 主题发起人 主题发起人 咩咩
  • 开始时间 开始时间

咩咩

Unregistered / Unconfirmed
GUEST, unregistred user!
做数据库程序时,当读表里内容时,鼠标指针会变成一个漏斗,下面还有一个'SQL'字样,
这个默认的鼠标指针能不能改呀?
比如就是普通打开一个表吧,放一个Table,设置完Table,让Active=True时,鼠标就变成
那个样子了,打开完毕后,又变回来了。应该是说明白了吧,请高手帮忙,对不起分不多了
 
cursor属性
 
cursor:=default;
 
修改cursor的属性

具体看delphi的列表就知道了,就是一个form的属性

当active设为true前改一下,然后再改回来,就可以了
 
改变它的cursor属性,模式如下
改变……》做一些时间长的动作……》完成后……》改回来
 
screen.cursor:=crHourglass;//鼠标为沙漏状
screen.cursor:=crDefault;
 
想改啥鼠标形状就改啥,只要你能画得出!!!
转贴:具体代码:
一.建立工程project1.exe与一个资源档
用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.
//注意的是资源文件res的制作方法:
//新建一个文本文件mycursor.rc,内容为: mycursor exefile project1.exe,然后把它们拷贝到Delphi的
//BIN目录下,执行Dos命令Brcc32.exe mycursor.rc,将产生一个mycursor.res的文件
 
谢谢春意,我不是要自定义形状。按Imfish所说,也实现不了:(
 
时间太久了,只好接受答案了!
 
接受答案了.
 
后退
顶部