HasFormat (C++)

From RAD Studio Code Examples
Jump to: navigation, search

Description

This example uses a button and an TEdit on a form. When you click 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.

Code

#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);
}

Uses