Android实例-如何使用系统剪切板(XE8+小米2)

结果：

发现个问题，就是粘贴时会清除之前的信息。

unit Unit1;

interface

uses
  System.SysUtils, System.Types, System.UITypes, System.Classes, System.Variants,
  FMX.Types, FMX.Controls, FMX.Forms, FMX.Graphics, FMX.Dialogs,
  System.Rtti,//需要引入
  FMX.platform, FMX.ScrollBox, FMX.Memo, FMX.Edit, FMX.Controls.Presentation,
  FMX.StdCtrls;//需要引入

type
  TForm1 = class(TForm)
    Button1: TButton;
    Button2: TButton;
    Edit1: TEdit;
    Memo1: TMemo;
    Button3: TButton;
    Button4: TButton;
    Memo2: TMemo;
    Button5: TButton;
    procedure FormCreate(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button5Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure Button4Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
    //定义剪切板全局变量化
    FClipboardService: IFMXClipboardService;
  end;

var
  Form1: TForm1;

implementation
{$R *.fmx}
{$R *.NmXhdpiPh.fmx ANDROID}

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
  //法二，用系统的剪切板来实现拷贝
  FClipboardService.SetClipboard(Tvalue(Edit1.Text));
end;

procedure TForm1.Button4Click(Sender: TObject);
begin
  //法二，用系统的剪切板来实现拷贝
  FClipboardService.SetClipboard(Tvalue(Memo1.Text));
end;

procedure TForm1.Button5Click(Sender: TObject);
begin
  //从系统剪切板得到数据实现粘贴
  Memo2.Text := FClipboardService.GetClipboard.ToString;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  //初始化剪切板
  TPlatformServices.Current.SupportsPlatformService(IFMXClipboardService, IInterface(FClipboardService));
end;

end.