VCL 中如何使用剪贴板咱就不说了,FMX 做为一个新的框架,提供了跨平台的剪贴板支持。FMX 对剪贴板的支持来自两个接口:
- IFMXClipboardService:位于 FMX.Platform.pas 中
1234567891011IFMXClipboardService = 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 中
123456789101112131415IFMXExtendedClipboardService = interface(IFMXClipboardService)[‘{E96E4776-8234-49F9-B15F-301074E23F70}‘]function HasText: Boolean;function GetText: string;procedure SetText(const Value: string);function HasImage: Boolean;function GetImage: TBitmapSurface;procedure SetImage(const Value: TBitmapSurface);procedure RegisterCustomFormat(const AFormatName: string);function IsCustomFormatRegistered(const AFormatName: string): Boolean;procedure UnregisterCustomFormat(const AFormatName: string);function HasCustomFormat(const AFormatName: string): Boolean;function GetCustomFormat(const AFormatName: string; const AStream: TStream): Boolean;procedure SetCustomFormat(const AFormatName: string; const AStream: TStream);end;
很明显,第二种更符合VCL中TClipboard的使用习惯。而且如果要使用自定义格式的内容,则必需使用第二种格式,第一种格式的支持情况如下(以10.2 为准,未来版本请自行查看):
- Windows 平台(FMX.Clipboard.Win.pas):文本、位图
- android 平台(FMX.Clipboard.Android.pas):文本
- ios 平台(FMX.Clipboard.iOS.pas):文本、位图
- OSX 平台(FMX.Clipboard.Mac.pas):文本、位图
注意一下,支持位图的平台,实际上 TValue 支持的是 TBitmapSurface,当然设置值时也支持 TBitmap ,但 GetClipboard 返回的就只是 TBitmapSurface 类型的对象了。
好了,回归正转,说一下基本的使用步骤:
- 引用 fmx.platform 单元,如果使用第二个接口,同时使用 fmx.clipboard 单元。
- 用 TPlatformServices.Current.SupportsPlatformService 函数来获取剪贴板服务接口实例。
- 调用获取的接口实例的相关函数来执行相关的功能。
一个简单的示例:
1
2
3
4
5
6
7
8
9
|
procedure TForm1.Button1Click(Sender: TObject);
var
AClipboard:IFMXClipboardService;
begin
if TPlatformServices.Current.SupportsPlatformService(IFMXClipboardService,AClipboard) then
begin
AClipboard.SetClipboard(‘Hello,world from delphi‘);
end;
end;
|
至于其它的几个接口,大家看相关接口的帮助就可以了。