Copiar y pegar en FireMonkey

[TiammatMX]

En mi primer aplicación usando FireMonkey, me llevo la sorpresa que no existe (o no he encontrado) una implementación copiar / pegar entre el clipboard (ya sea de Android, iOS o Windows) que me permita tomar texto (copiar) o agregar texto (pegar) a un TMemo para FireMonkey.

En VCL, esos procesos los tengo más que dominados, pero como ésto es nuevo para mí, pues aún no localizo el proceso o función o funcionalidad que me permita hacerlo. Supongo que es algo super sencillo, pero me declaro incompetente para hacerlo...

procedure TfrmPrincipal.btnPegarClick(Sender: TObject);
begin
//
end;

procedure TfrmPrincipal.btnCopiarClick(Sender: TObject);
begin
//
end;

La idea es que usando éstos botones, de la memoria intermedia (clipboard) pase al contenido del TMemo como texto.

Por su atención, gracias.

[TiammatMX]

Me encantan los diálogos de sordos, es decir, ya encontré la respuesta...

procedure TCopyPasteDemo.CopyButtonClick(Sender: TObject);
var
Svc: IFMXClipboardService;
Image: TBitmap;
begin
if TPlatformServices.Current.SupportsPlatformService(IFMXClipboardService, Svc) then
if TextRadioButton.IsChecked then
Svc.SetClipboard(Edit1.Text)
else
begin
Image := TextBorder.MakeScreenshot;
try
Svc.SetClipboard(Image);
finally
Image.Free;
end;
end;
end;

procedure TCopyPasteDemo.PasteButtonClick(Sender: TObject);
var
Svc: IFMXClipboardService;
Value: TValue;
Bitmap: TBitmap;
begin
if TPlatformServices.Current.SupportsPlatformService(IFMXClipboardService, Svc) then
begin
Value := Svc.GetClipboard;
if not Value.IsEmpty then
begin
if Value.IsType<string> then
begin
PasteLabel.Text := Value.ToString;
PasteImage.Bitmap := nil;
end
else if Value.IsType<TBitmapSurface> then
try
PasteLabel.Text := string.Empty;
Bitmap := TBitmap.Create;
try
Bitmap.Assign(Value.AsType<TBitmapSurface>);
PasteImage.Bitmap := Bitmap;
finally
Bitmap.Free;
end;
finally
Value.AsType<TBitmapSurface>.Free;
end;
end;
end;
end;

Ahora, a experimentar que sirva... :):):):)

[Casimiro Notevi]

^\||/^\||/^\||/

[dec]

Hola a todos,

¡Gracias por compartir la solución TiammatMX! :)

[Teto10]

Hola muy buen codigo, gracias por compartirlo