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;
  • 相关阅读:
    JavaScript学习-自定义对象/
    网站特效:欢迎窗口/发表评论
    javacript中的事件
    DOM / DOM操作表格
    如何设置文本不换行省略号显示等CSS常用文本属性
    从零开始的H5生活
    Spring手动提交事务
    java基础学习之接口
    java基础学习之抽象类
    java基础学习之final关键字
  • 原文地址:https://www.cnblogs.com/cb168/p/4030272.html
Copyright © 2011-2022 走看看