FireMonkey 使用剪贴板

最新推荐文章于 2021-11-25 19:33:31 发布

原创最新推荐文章于 2021-11-25 19:33:31 发布 · 368 阅读

0 ·

CC 4.0 BY-SA版权

文章标签：

#android

Delphi 同时被 3 个专栏收录

153 篇文章

订阅专栏

FireMonkey

51 篇文章

订阅专栏

安卓

44 篇文章

订阅专栏

这篇博客介绍了如何在Android应用中使用剪贴板功能。通过导入FMX.Platform和FMX.Clipboard库，并在Button1的点击事件中设置IFMXExtendedClipboardService接口，可以将文本'AAAABBCCC'复制到剪贴板。这段代码在Windows和Android平台上都已测试有效。

我想在安卓里面使用剪贴板，把当前程序的内容复制到剪贴板上。

查了一下资料，应该这样做：

uses FMX.Platform, FMX.Clipboard;

{$R *.fmx}

procedure TForm1.Button1Click(Sender: TObject);
var
  ClipboardService: IFMXExtendedClipboardService;
begin
  if TPlatformServices.Current.SupportsPlatformService(IFMXExtendedClipboardService, ClipboardService) then
  begin
    ClipboardService.SetText('AAAABB CCC');
  end;
end;

上述代码，在 Windows 底下，在 Android 底下，测试有效。