HasFormat (Delphi)

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

procedure TForm1.Button1Click(Sender: TObject);
begin
if Clipboard.HasFormat(CF_TEXT) then
  begin
  Edit1.Text := Clipboard.AsText;
  Clipboard.Clear;
  end
else
  MessageDlg(
    'There is no text on the Clipboard', 
    mtInformation, [mbOK],0);
end;

Uses