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

[min@y™]

а у меня не подчёркивает, всё компилится и работает.
что я делаю не так?
как сделать, чтобы у меня тоже такую ошибку вываливало?

[Dux]

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

а у меня не подчёркивает, всё компилится и работает.
что я делаю не так?
как сделать, чтобы у меня тоже такую ошибку вываливало?

Если не сложно, можете мне ваш файл проекта сбросить?

[min@y™]

Если не сложно, можете мне ваш файл проекта сбросить?

щас ночь, менЯ на работу охрана не пустит.

[Пепел Феникса]

Dux

Delphi современная надеюсь?

[Dux]

Сообщение от Пепел Феникса

Delphi современная надеюсь?

Delphi XE7

[Iron Monk]

Сообщение от Пепел Феникса

Delphi современная надеюсь?

У меня в Д7 компилится и работает без вопросов.

[Filka]

Можно сделать что-то типа такого:

unit DotsRemover;

interface

uses
  Windows, Messages, Controls, StdCtrls;

type
  TDotsRemover = class(TObject)
  private
    FEdit: TEdit;
    FOldWndProc: TWndMethod;
    procedure Hook;
    procedure Unhook;
    procedure RemoveDots(var S: string);
    procedure WndProc(var Message: TMessage);
  public
    constructor Create(AEdit: TEdit);
    destructor Destroy; override;
  end;

implementation

uses
  Clipbrd;

{ TDotsRemover }

constructor TDotsRemover.Create(AEdit: TEdit);
begin
  FEdit := AEdit;
  Hook;
end;

destructor TDotsRemover.Destroy;
begin
  Unhook;
end;

procedure TDotsRemover.Hook;
begin
  if Assigned(FEdit) then
  begin
    FOldWndProc := FEdit.WindowProc;
    FEdit.WindowProc := WndProc;
  end;
end;

procedure TDotsRemover.RemoveDots(var S: string);
var
  I, J: Integer;
begin
  J := 0;
  for I := 1 to Length(S) do
  begin
    if S[I] <> '.' then
    begin
      Inc(J);
      S[J] := S[I];
    end;
  end;
  SetLength(S, J);
end;

procedure TDotsRemover.Unhook;
begin
  if Assigned(FEdit) then
    FEdit.WindowProc := FOldWndProc;
end;

procedure TDotsRemover.WndProc(var Message: TMessage);
var
  S: string;
begin
  case Message.Msg of
    WM_PASTE:
      begin
        S := Clipboard.AsText;
        RemoveDots(S);
        FEdit.SelText := S;
      end;

    WM_CHAR:
      begin
        Message.Result := 0;
        if Message.WParam <> Ord('.') then
          FOldWndProc(Message);
      end;

    WM_SETTEXT:
      begin
        S := PChar(Message.LParam);
        RemoveDots(S);
        Message.LParam := LPARAM(PChar(S));
        FOldWndProc(Message);
      end;
  else
    FOldWndProc(Message);
  end;
end;

end.

Пример:

uses
  //...
  DotsRemover;

type
  TForm1 = class(TForm)
    Edit1: TEdit;
    procedure FormCreate(Sender: TObject);
    procedure FormDestroy(Sender: TObject);
  private
    FDotsRemover: TDotsRemover;
  end;
//...
implementation
//...
procedure TForm1.FormCreate(Sender: TObject);
begin
  FDotsRemover := TDotsRemover.Create(Edit1);
end;

procedure TForm1.FormDestroy(Sender: TObject);
begin
  FDotsRemover.Free;
end;

[Dux]

Спасибо большое!!!

[Filka]

Пожалуйста.

[Iron Monk]

А мне реализация от min@y™ понравилась.