对于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.