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;
  • 相关阅读:
    SpringMVC概述
    Spring 声明式事务
    Spring_AOP切面编程
    Spring DI依赖注入
    Spring IOC控制反转
    Spring解耦和耦合
    Spring概述
    HTTP协议常见状态码
    TCP/IP协议的认识
    设计模式-工厂模式(factory)
  • 原文地址:https://www.cnblogs.com/cb168/p/4030272.html
Copyright © 2011-2022 走看看