📄 lc_bcb_41.html
字号:
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>如何监视剪贴板</title>
</head>
<body>
<span class="nor"><span class="unnamed1"><b>
<p align="center"><big>如何监视剪贴板</big></b></span></span></p>
<p align="left" class="unnamed1"><font face="宋体"><small><span class="nor"><span
class="unnamed1">在Form1的.h的private加上:<br>
void __fastcall ClipboardChanged(TMessage& Msg);</span></span></small></font></p>
<p align="left"><font face="宋体"><small><span class="unnamed1"><span class="nor">在Form1的.h的public加上:<br>
BEGIN_MESSAGE_MAP<br>
MESSAGE_HANDLER(WM_DRAWCLIPBOARD,TMessage,ClipboardChanged)<br>
END_MESSAGE_MAP(TForm)</span></span></small></font></p>
<p align="left"><font face="宋体"><small><span class="unnamed1"><span class="nor">在Form1的.cpp内加上:<br>
void __fastcall TForm1::ClipboardChanged(TMessage& Msg)<br>
{<br>
POINT MousePos;<br>
GetCursorPos(&MousePos);<br>
PopupMenu4->PopupComponent=Form1;<br>
PopupMenu4->Popup(MousePos.x,MousePos.y); //一有变化,就弹出一个菜单,复制,剪切或清除都能引发此函数<br>
}</span></span></small></font></p>
<p align="left"><font face="宋体"><small><span class="unnamed1"><span class="nor">在Form1的.cpp内有一个ToolButton<br>
void __fastcall TForm1::ToolButton9Click(TObject *Sender)<br>
{<br>
static HWND LastHandle;<br>
static bool clip=false;<br>
if(clip==true)<br>
{<br>
ToolButton9->Down=false;<br>
ChangeClipboardChain(Form1->Handle,LastHandle); //结束监视 <br>
}<br>
else<br>
{ <br>
ToolButton9->Down=true;<br>
Clipboard()->Clear(); <br>
Application->Minimize();<br>
LastHandle=SetClipboardViewer(Form1->Handle); //启动监视 <br>
} <br>
clip=!clip;<br>
} </span></span></small></font></p>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -