如何監視剪貼板

在Form1的.h的private加上：

void __fastcall ClipboardChanged(TMessage& Msg);

在Form1的.h的public加上：

BEGIN_MESSAGE_MAP

MESSAGE_HANDLER(WM_DRAWCLIPBOARD,TMessage,ClipboardChanged)

END_MESSAGE_MAP(TForm)

在Form1的.cpp內加上：

void __fastcall TForm1::ClipboardChanged(TMessage& Msg)
{
　 POINT MousePos;
　 GetCursorPos(&MousePos);
　 PopupMenu4->PopupComponent=Form1;
　 PopupMenu4->Popup(MousePos.x,MousePos.y); //一有變化,就彈出一個菜單，復制,剪切或清除都能引發此函數
}

在Form1的.cpp內有一個ToolButton

void __fastcall TForm1::ToolButton9Click(TObject *Sender)
{
　 static HWND LastHandle;
　 static bool clip=false;
　 if(clip==true)
　 {
　　 ToolButton9->Down=false;
　　 ChangeClipboardChain(Form1->Handle,LastHandle); //結束監視
　 }
　 else
　 {
　　 ToolButton9->Down=true;
　　 Clipboard()->Clear();
　　 Application->Minimize();
　　 LastHandle=SetClipboardViewer(Form1->Handle); //啟動監視
　 }
　 clip=!clip;
}