Clipboard_Clear

Esse exemplo leva um Button no Form. É usado para limpar o Clipboard. Usamos a forma mais simples (sem a API).

//---------------------------------------------------------------------------
#include <vcl.h>
#pragma hdrstop

        #include <Clipbrd.hpp>

#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------

void __fastcall TForm1::Button1Click(TObject *Sender)
{
/* USANDO A API PARA LIMPAR O CLIPBOARD:

  if ( OpenClipboard(0) )
  {
        EmptyClipboard();
        CloseClipboard();
  }
  else
        ShowMessage("Error :: OpenClipboard");  */


//OU USANDO A VCL (MAIS SIMPLES AINDA):

//DEVE-SE INCLUIR: #include <Clipbrd.hpp>

  Clipboard()->Clear();
}
//---------------------------------------------------------------------------