Вставка нескольких строк в TEdit

что касается компонента TEdit, можно ли компоненту обрабатывать многострочную вставку из буфера обмена Windows путем преобразования разрывов строк в пробелы?

другими словами, если данные в буфере обмена Windows:

Hello
world
!

...и пользователь поместил свой курсор в TEdit, затем нажал CTRL+V, можно ли было бы, чтобы tedit отображал ввод как:

Привет, мир !

7
delphi delphi-2010 delphi-7 delphi-xe2 object-pascal

1 ответов

вам нужно подкласс TEdit используя класс interposer и добавьте обработчик для 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.
12