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
;
|
至于其它的几个接口,大家看相关接口的帮助就可以了。