📄 lc_bcb_42.html
字号:
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>如何使用OnIdle事件</title>
</head>
<body>
<b>
<p align="center"><big>如何使用OnIdle事件</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>
<p> </p>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -