delphi – 将多行粘贴到TEdit中

发布时间：2020-12-15 04:11:56 所属栏目：大数据来源：网络整理

导读：对于TEdit组件,组件是否可以通过将换行符转换为空格来处理来自 Windows剪贴板的多行粘贴？换句话说,如果Windows剪贴板上有以下数据： Helloworld! …并且用户将光标放在TEdit中然后按下CTRL V,是否可以让TEdit显示输入为：你好,世界！解决方法您需要使

对于TEdit组件,组件是否可以通过将换行符转换为空格来处理来自 Windows剪贴板的多行粘贴？

换句话说,如果Windows剪贴板上有以下数据：

Hello
world
!

…并且用户将光标放在TEdit中然后按下CTRL V,是否可以让TEdit显示输入为：

你好,世界！

解决方法

您需要使用插入器类对TEdit进行子类化,并为WM_PASTE消息添加处理程序：

unit Unit3;

interface

uses
  Windows,Messages,SysUtils,Variants,Classes,Graphics,Controls,Forms,Dialogs,StdCtrls,DB,adsdata,adsfunc,adstable;

type
  TEdit= class(StdCtrls.TEdit)
    procedure WMPaste(var Msg: TWMPaste); message WM_PASTE;
  end;

type
  TForm3 = class(TForm)
    AdsTable1: TAdsTable;
    Edit1: TEdit;
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form3: TForm3;

implementation

{$R *.dfm}

uses
  Clipbrd;

{ TEdit }

procedure TEdit.WMPaste(var Msg: TWMPaste);
var
  TempTxt: string;
begin
  TempTxt := Clipboard.AsText;
  TempTxt := StringReplace(TempTxt,#13#10,#32,[rfReplaceAll]);
  Text := TempTxt;
end;

end.

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!