Delphi / Firemonkey - Copy Text to Clipboard

procedure TFormMain.ButtonCopyCodeClick(Sender: TObject);
var
  clp: IFMXClipboardService;
begin
  if TPlatformServices.Current.SupportsPlatformService(IFMXClipboardService) then
  begin
    clp := IFMXClipboardService(TPlatformServices.Current.GetPlatformService(IFMXClipboardService));
    clp.SetClipboard(MemoOutput.Text);
  end;
end;

Werbung



comments powered by Disqus

Copyright Dunkel & Iwer GbR | Datenschutzerklärung | Impressum