Как обработать текст в буфере перед вставкой в edit?

[kropotkina-alice]

Сообщение от Dux

Мне нужно в Edit вставить текст, но перед вставкой нужно удалить из него все точки. Как отловить сам текст и момент перед вставкой из буфера?

procedure TForm1.Edit1KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
var p: integer;
    s: string;
begin
if ((getasynckeystate(VK_CONTROL)<>0) and (getasynckeystate(Ord('V'))<>0)) then
begin
if c.HasFormat(CF_TEXT) then
begin
Edit1.Clear;
s:=ClipBoard.AsText;
p:=Pos('.', s);
while p>0 do
begin
Delete(s,p,1);
p:=Pos('.', s);
end;
ClipBoard.AsText:=s;
end else
begin
ShowMessage('Буфер не содержит текста!');
ClipBoard.Clear;
end;
end;
end;

[Dux]

Спасибо большое, только тут есть еще вариант, когда пользователь мышкой выбирает в меню "Вставить"

[min@y™]

только тут есть еще вариант, когда пользователь мышкой выбирает в меню "Вставить"

Я ж сказал:

допилить WndProc() - переделать реакцию на WM_PASTE

[kropotkina-alice]

Сообщение от Dux

Спасибо большое, только тут есть еще вариант, когда пользователь мышкой выбирает в меню "Вставить"

procedure TForm1.Edit1KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
if ((getasynckeystate(VK_CONTROL)<>0) and (getasynckeystate(Ord('V'))<>0)) then
MenuInsertClick(Edit1);
end;

procedure TForm1.MenuInsertClick(Sender: TObject);
var p: integer;
    s: string;
begin
if c.HasFormat(CF_TEXT) then
begin
Edit1.Clear;
s:=ClipBoard.AsText;
p:=Pos('.', s);
while p>0 do
begin
Delete(s,p,1);
p:=Pos('.', s);
end;
ClipBoard.AsText:=s;
if not (Sender is TEdit) then
Edit1.Text:=s;
end else
begin
ShowMessage('Буфер не содержит текста!');
end;
end;

[Dux]

Спасибо! Разобрался!

[min@y™]

Спасибо! Разобрался!

Ну вот... А я уже пример рабочий написал...

[Dvoishnik]

Сообщение от min@y™

Ну вот... А я уже пример рабочий написал...

по хвастайтесь и вы пожалуйста.
будет полезно таким как я посмотреть, поучиться.

[min@y™]

по хвастайтесь и вы пожалуйста.

Ну, давай попробую.

type
  TEdit = class(StdCtrls.TEdit)
  private
    procedure PasteWithoutPoints;
  public
    procedure WndProc(var Message: TMessage); override;
  end;

  TFormMain = class(TForm)
    // блаблабла
    Edit: TEdit;
    // блаблабла
  end;

var
  FormMain: TFormMain;

implementation

// блаблабла

procedure TEdit.PasteWithoutPoints;
begin
  Clipboard.Open();
  try
    Self.SelText:= StringReplace(Clipboard.AsText, '.', '', [rfReplaceAll]);
  finally
    Clipboard.Close();
  end;
end;

procedure TEdit.WndProc(var Message: TMessage);
var
  msg: TWMPaste absolute Message;
begin
  if msg.Msg = WM_PASTE
    then begin
           PasteWithoutPoints();
           msg.Result:= 0;
         end
    else inherited;
end;

end.

Код РАБОЧИЙ! Проверил.

[Dux]

min@y™, пытаюсь разобраться в вашем примере, но чет не выходит. Сразу подчеркивает:

type
TEdit = class(StdCtrls.TEdit)

Пишет undeclared identifier 'StdCtrls'

[Аватар]

Значит не находит, если не находит - значит юнит не подключен