delphi FMX 多种剪切板用法

unit Unit1;

interface

uses
 System.SysUtils, System.Types, System.UITypes, System.Classes,
 System.Variants,
 FMX.Types, FMX.Controls, FMX.Forms, FMX.Graphics, FMX.Dialogs, FMX.StdCtrls,
 FMX.Layouts, FMX.Memo, FMX.Edit,

 System.Rtti,
 FMX.platform, FMX.Controls.Presentation;


type
 TForm1 = class(TForm)
   Button1: TButton;
   Edit1: TEdit;
   Memo1: TMemo;
   Button2: TButton;
   Memo2: TMemo;
   Button3: TButton;
   Button4: TButton;
   Button5: TButton;
   procedure Button1Click(Sender: TObject);
   procedure Button2Click(Sender: TObject);
   procedure FormCreate(Sender: TObject);
   procedure Button3Click(Sender: TObject);
   procedure Button4Click(Sender: TObject);
   procedure Button5Click(Sender: TObject);
 private
   { Private declarations }
 public
   { Public declarations }
   FClipboardService: IFMXClipboardService;
 end;

var
 Form1: TForm1;

implementation

{$R *.fmx}
procedure TForm1.FormCreate(Sender: TObject);
begin
TPlatformServices.Current.SupportsPlatformService(IFMXClipboardService,
   IInterface(FClipboardService));
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
 Edit1.SelectAll;
 Edit1.CopyToClipboard;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
 Memo1.SelectAll;
 Memo1.CopyToClipboard;
end;

procedure TForm1.Button3Click(Sender: TObject);
begin
  Memo2.Text := FClipboardService.GetClipboard.ToString;
end;

procedure TForm1.Button4Click(Sender: TObject);
begin
 FClipboardService.SetClipboard(Tvalue(Edit1.Text));
end;

procedure TForm1.Button5Click(Sender: TObject);
begin
 FClipboardService.SetClipboard(Tvalue(Memo1.Text));
end;

end.