如何在Delphi中使用剪贴板

Posted 2023-04-18

参考技术A 通过剪贴板实现剪切、复制、粘贴操作：

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
    Memo1: TMemo;
    Button1: TButton;
    Button2: TButton;
    Button3: TButton;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
  private
     Private declarations 
  public
     Public declarations 
  end;

var
  Form1: TForm1;

implementation

$R *.dfm

procedure TForm1.Button1Click(Sender: TObject);  // 剪切
begin
     memo1.CutToClipboard;
     memo1.SetFocus;
end;

procedure TForm1.Button2Click(Sender: TObject);   // 复制
begin
     memo1.SelText;
     memo1.CopyToClipboard;
     memo1.SetFocus;
end;

procedure TForm1.Button3Click(Sender: TObject);  // 粘贴
begin
    memo1.PasteFromClipboard;
    memo1.SetFocus;
end;

end.

本回答被提问者采纳 参考技术B 剪切板类 TClipboard 定义在 Clipbrd 单元, 使用前先要 uses Clipbrd; [Delphi] view plaincopyprint?
uses Clipbrd;

procedure TForm1.Button1Click(Sender: TObject);
var
clip: TClipboard;
begin

clip := TClipboard.Create; 建立

clip.AsText := Self.Text; 把窗体标题放入剪切板
ShowMessage(clip.AsText);
从剪切板读取, 返回结果是: Form1因为剪切板是全局的, 此时可以在其他地方粘贴一试
clip.Free; 释放
end;

delphi 从 TWebbrowse组件中获取图片

在 delphi 中使用 TWebbrowse 组件，虽然效率不如用(idhttp之类)模拟操作效率高。但其难度低，上手快，简单粗暴有效。

从网上搜到的处理此问题的文章大多是 ctrl + c 复制到剪贴板的方法，但在 win7 64中，此法几乎没法使用，随时报剪贴板错误。

本方法利用 IHTMLElementRender 接口，完美地解决了问题。同时，也可以加深对接口的进一步理解。

delphi7源码下载

unit Unit1;
interface
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ExtCtrls, OleCtrls, SHDocVw, MSHtml;
type
  // 此定义是从 XE8 的 MSHTML 单元中抄的
  IHTMLElementRender = interface(IUnknown)
    [\'{3050F669-98B5-11CF-BB82-00AA00BDCE0B}\']
    function DrawToDC(hdc: hdc): HResult; stdcall;
    function SetDocumentPrinter(const bstrPrinterName: WideString; hdc: hdc): HResult; stdcall;
  end;

  TForm1 = class(TForm)
    WebBrowser1: TWebBrowser;
    Image1: TImage;
    Button1: TButton;
    procedure FormCreate(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure Button1Click(Sender: TObject);
  private
    FFirstShow: Boolean;
    FCodeBmp: TBitmap;
  end;

var
  Form1: TForm1;

implementation
const
  csUrl = \'https://account.guokr.com/sign_in/?\';
{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
  FFirstShow := true;
  FCodeBmp := TBitmap.Create;
  FCodeBmp.Height := 40;
  FCodeBmp.Width := 100;
  FCodeBmp.PixelFormat := pf24bit;
end;

procedure TForm1.FormShow(Sender: TObject);
begin
 // 做一个 FirstOnShow 功能。
 // OnCreate 事件中使用 WebBrowser1.Navigate 的话，会出错的。
  if FFirstShow then
  begin
    WebBrowser1.Navigate(csUrl);
    FFirstShow := false;
  end;
end;

procedure TForm1.Button1Click(Sender: TObject);
var
  Doc: IHTMLDocument2;
  Render: IHTMLElementRender;
begin
  Doc := WebBrowser1.Document as IHTMLDocument2;
  Render := Doc.All.Item(\'captchaImage\', EmptyParam) as IHTMLElementRender;
  Render.DrawToDC(Self.Canvas.Handle);
  Render.DrawToDC(FCodeBmp.Canvas.Handle);
  Image1.Picture.Assign(FCodeBmp);
end;

end.