📄 faq86.htm
字号:
<HTML>
<HEAD>
<TITLE>Replace the SQL hour glass cursor with the regular hour glass cursor</TITLE>
<META NAME="Author" CONTENT="Harold Howe">
</HEAD>
<BODY BGCOLOR="WHITE">
<CENTER>
<TABLE BORDER=0 CELLPADDING=0 CELLSPACING=0 WIDTH="640">
<TR>
<TD>
<H3>
Replace the SQL hour glass cursor with the regular hour glass cursor
</H3>
<P>
The stock cursors provided by the VCL are available at runtime in the <TT>Cursors</TT> array property of the
global <TT>Screen</TT> object. The array is indexed via the cursor constants provided by the VCL (<TT>crNone</TT>,
<TT>crHourGlass</TT>, etc). If you want to change one of the stock cursors, simply assign a new value to this array.
</P>
<P>
The following code example demonstrates how to replace the SQL cursor with the regular hourglass cursor.
</P>
<pre>
<b>__fastcall</b> TForm1<b>:</b><b>:</b>TForm1<b>(</b>TComponent<b>*</b> Owner<b>)</b>
<b>:</b> TForm<b>(</b>Owner<b>)</b>
<b>{</b>
Screen<b>-></b>Cursors<b>[</b>crSQLWait<b>]</b> <b>=</b> Screen<b>-></b>Cursors<b>[</b>crHourGlass<b>]</b><b>;</b>
<b>}</b>
</pre>
</TD> </TR>
</TABLE>
</CENTER>
</BODY>
</HTML>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -