📄 20000922012.htm
字号:
<HTML>
<HEAD>
<TITLE>如何使用OnIdle事件</TITLE>
<META content="MSHTML 5.00.2314.1000" name=GENERATOR>
</HEAD>
<BODY aLink=#FF0000 bgColor=#ffffff leftMargin=0 link=#187800 topMargin=0
vLink=#990099>
<div align="center">
<table width="744" border="0" cellspacing="0" cellpadding="0" height="76">
<tr>
<td>
<p align=center><b><big><font size="3"><br>
如何使用OnIdle事件</font></big></b></p>
<p align=left class=nor><span class=unnamed1>使用OnIdle事件随时监视剪贴板内容以改变弹出菜单的可执行项。
</span></p>
<p align=left class=nor><span class=unnamed1>在Form1的.h的private加上:<br>
void __fastcall OnIdle(TObject* Sender,bool& Done);</span></p>
<p align=left class=nor><span class=unnamed1>在Form1的.cpp内加上:<br>
void __fastcall TForm1::OnIdle(TObject* Sender,bool& Done)<br>
{<br>
bool TextSelected=DBRichEdit1->SelLength>0;<br>
N17->Enabled=TextSelected;//剪切,复制,清除<br>
N18->Enabled=TextSelected;<br>
N20->Enabled=TextSelected;<br>
bool CBHasText=Clipboard()->HasFormat(CF_TEXT);// 需加入#include<Clipbrd.h><br>
N19->Enabled=CBHasText;//粘贴<br>
bool HasText=RichEdit1->Lines->Count>0;<br>
N21->Enabled=HasText;//全选<br>
bool HasChanged=RichEdit1->Modified;<br>
ToolButton2->Enabled=HasChanged;<br>
ToolButton4->Enabled=HasChanged;<br>
}</span></p>
<p align=left class=nor><span
class=unnamed1>在Form1的OnCreate内加上:<br>
Application->OnIdle=OnIdle; </span></p>
</td>
</tr>
</table>
</div>
</BODY></HTML>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -