//---------------------------------------------------------------------------

#include <vcl.h>
#pragma hdrstop

#include "HasFormat.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
	: TForm(Owner)
{
}
//---------------------------------------------------------------------------
// BeginExample: HasFormat
// Method: Clipbrd.TClipboard.HasFormat
// Method: Clipbrd.TClipboard.Clear
// Property: Clipbrd.TClipboard.AsText

// BeginCode
/*
This example uses a button and an TEdit on a form. When the
user clicks the button, any text on the clipboard is pasted
into the TEdit.  If there is no text on the clipboard, a 
message box appears.
Note:  To use this example, you must add Clipbrd to the uses
clause.  Load the Clipboard by performing a copy in any 
application.
*/
#include <Clipbrd.hpp>
void __fastcall TForm1::Button1Click(TObject *Sender)
{
  if (Clipboard()->HasFormat(CF_TEXT))
  {
	Edit1->Text = Clipboard()->AsText;
	Clipboard()->Clear();
  }
  else
	MessageDlg(
	  "There is no text on the Clipboard",
	  mtInformation, TMsgDlgButtons() << mbOK, 0);
}
// EndCode
// EndExample: HasFormat
//---------------------------------------------------------------------------
