Delphi程序中如何设置鼠标的形状,比如在执行某个命令时,鼠标变成漏斗状,请高手指教,谢谢!!!1
解决方案 »
- 这样的c++源码,怎么给改成delphi的?主要是有红色注释的那些怎么改成delphi的源码?
- splitter中有个小图,点后自动收缩/展开如何作
- 請看一下為什麼在OPEN後我有MSSQL所占用的內存還在上升?
- dephi查错问题
- 问一个代表性的问题:DELPHI中如何进行DIREX游戏开发?
- FastReport 3.05 的问题
- 急,有关SQL SERVER 2000数据移出问题!
- 初学 Delphi 我该看那一本书为好 !?
- 关于ADO中TAdoDataSet的Filter属性
- chm文件如何实现关键字搜索
- 即将永远告别csdn,来这里和兄弟们道别!再过一会可能道别的机会都没有了,呵呵!
- 急求书?,哪位大侠知道!
Form1.Cursor:=crDefaout;
Form1.Cursor:=crHandPoint;
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;type
TForm1 = class(TForm)
Button1: TButton;
procedure Button1Click(Sender: TObject);
procedure FormCreate(Sender: TObject);
private
Sed: integer ;
{ Private declarations }
public
{ Public declarations }
end;var
Form1: TForm1;implementation{$R *.dfm}procedure TForm1.Button1Click(Sender: TObject);
begin
Sed :=(Sed +1 ) Mod 3 ;
case Sed of
0:Form1.Cursor := crHourGlass ; //漏斗
1: Form1.Cursor := crHandPoint ; //手
2 : Form1.Cursor := crDefault ;//默认
end ;
Button1.Cursor := Form1.Cursor ;
end;procedure TForm1.FormCreate(Sender: TObject);
begin
Sed := 0 ;
end;end.