zoukankan      html  css  js  c++  java
  • c++builder Delphi 直接使用剪贴板 Clipboard

    c++builder Delphi 直接使用剪贴板 Clipboard 剪贴板

    delphi

    use  Vcl.Clipbrd

    procedure TForm27.FormCreate(Sender: TObject);
    begin
      Caption := Clipboard.AsText;
    end;

     剪贴板

    不用创建对象,直接使用剪贴板

    #include <Vcl.Clipbrd.hpp>

    Caption = Clipboard()->AsText;

     Clipboard()->SetTextBuf(objname);

    fmx剪贴板

    https://community.embarcadero.com/blogs/entry/copy-and-paste

    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;
  • 相关阅读:
    Serializable读写类操作
    socket模拟通信
    使用poi实现生成excel文件
    注解形式的通知
    使用linkedhashmap实现LRU(最近最少使用缓存算法)
    websocket的使用
    centos systemctl daemon-reload 提示 no such file or directory 的一个原因
    mac 10.13 build 一个 redis desktop manager
    mac 必备工具
    supervisor 添加新配置不生效的问题
  • 原文地址:https://www.cnblogs.com/cb168/p/4030272.html
Copyright © 2011-2022 走看看