关于TEdit组件,是否可以通过将换行符转换为空格来处理Windows剪贴板上的多行粘贴?
换句话说,如果以下数据存储在Windows剪贴板中:
Hello
world
!
如果用户将光标放在TEdit中,然后按下CTRL+V,是否有可能使TEdit显示输入如下:
Hello world !
关于TEdit组件,是否可以通过将换行符转换为空格来处理Windows剪贴板上的多行粘贴?
换句话说,如果以下数据存储在Windows剪贴板中:
Hello
world
!
如果用户将光标放在TEdit中,然后按下CTRL+V,是否有可能使TEdit显示输入如下:
Hello world !
您需要使用中介者类(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.
YourEdit.WindowProc
指定一个新的消息处理程序。 - GolezTrol