procedure TForm1.Button1Click(Sender: TObject);
begin
Cursor := crHourGlass;
end;procedure TForm1.Button2Click(Sender: TObject);
begin
Cursor := crDefault;
end;
begin
Cursor := crHourGlass;
end;procedure TForm1.Button2Click(Sender: TObject);
begin
Cursor := crDefault;
end;
解决方案 »
- 了解下delphi用于.net开发的事情
- delphi连接远程数据库问题问题
- 连接informix数据库,为何查询速度奇慢
- 怎样用程序将一个unicode big endian格式的文件转换为ansi格式?
- 请问这句是什么意思 if tmp[10]<>'? then
- 请教:如何双击dbgrid的列名实现排序
- 我妹要买一台笔记本电脑,大家帮我参考参考
- 简单一问,迅速给分
- 问各位猛人,到底怎样才能学好delphi?delphi是不是仅仅适合开发数据库?
- 这两天没事干。我搞了两个网址。http://borlandsoft.yeah.net 、 http://borlandsoft.126.com 、http://borlandsoft.home.chinaren.com/
- 新手----游少爷(再问)
- 简单!如何把一个COMBOBOX和LISTBOX中的数据全部取出来?谢谢!
利用control.cursor属性
tikkypeng(一两狂死郎之天衣有缝):老大,你速度真快,^_^
乌乌乌,难的我不会,简单的我赶不上
Screen.Cursor := crHourGlass;
//~~~~~~~
try
{ 耗时操作 }
finally
Screen.Cursor := crDefault;
end;
end;