将多行文本粘贴到TEdit中

Question

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

换句话说，如果以下数据存储在Windows剪贴板中：

Hello
world
!

如果用户将光标放在TEdit中，然后按下CTRL+V，是否有可能使TEdit显示输入如下：

Hello world !

- user1527613

Answer 1

您需要使用中介者类（interposer class）对 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.

- Ken White

---

如果你有一个具体的情况，觉得子类化过于复杂，你可以为 YourEdit.WindowProc 指定一个新的消息处理程序。 - GolezTrol