[FMX]在你的跨平台应用中使用剪贴板进行复制粘贴

最新推荐文章于 2025-05-29 09:00:12 发布

转载最新推荐文章于 2025-05-29 09:00:12 发布 · 769 阅读

delphi xe 专栏收录该内容

42 篇文章

订阅专栏

本文介绍了FMX框架中的两种剪贴板接口：IFMXClipboardService和IFMXExtendedClipboardService，并详细阐述了它们的功能及跨平台支持情况。此外，还特别提到了自定义格式内容的处理方式。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

VCL 中如何使用剪贴板咱就不说了，FMX 做为一个新的框架，提供了跨平台的剪贴板支持。FMX 对剪贴板的支持来自两个接口：

IFMXClipboardService：位于 FMX.Platform.pas 中

1
2
3
4
5
6
7
8
9
10
11
  IFMXClipboardService = interface(IInterface)
    ['{CC9F70B3-E5AE-4E01-A6FB-E3FC54F5C54E}']
    /// <summary>
    ///   Gets current clipboard value
    /// </summary>
    function GetClipboard: TValue;
    /// <summary>
    ///   Sets new clipboard value
    /// </summary>
    procedure SetClipboard(Value: TValue);
  end;

IFMXExtendedClipboardService：位于 FMX.Clipboard.pas 中

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
  IFMXExtendedClipboardService=interface(IFMXClipboardService)
    ['{E96E4776-8234-49F9-B15F-301074E23F70}']
    functionHasText:Boolean;
    functionGetText:string;
    procedureSetText(constValue:string);
    functionHasImage:Boolean;
    functionGetImage:TBitmapSurface;
    procedureSetImage(constValue:TBitmapSurface);
    procedureRegisterCustomFormat(constAFormatName:string);
    functionIsCustomFormatRegistered(constAFormatName:string):Boolean;
    procedureUnregisterCustomFormat(constAFormatName:string);
    functionHasCustomFormat(constAFormatName:string):Boolean;
    functionGetCustomFormat(constAFormatName:string;constAStream:TStream):Boolean;
    procedureSetCustomFormat(constAFormatName:string;constAStream:TStream);
  end;