如何实现仅在剪贴板粘贴文本至TEdit超限时触发提示？

这个需求其实很常见，核心就是只在粘贴动作触发时检查文本长度，而不是每次输入字符都跑一遍逻辑。在Delphi里，我们可以通过拦截TEdit的WM_PASTE消息来实现，给你两种靠谱的方案：

方案一：自定义TEdit子类（推荐，可复用） #

如果你的项目里多个地方需要这个功能，自定义一个继承自TEdit的控件是最优雅的方式，后续直接拖控件用就行：

unit MyEditUnit;

interface

uses
  Windows, Messages, SysUtils, Classes, Controls, StdCtrls;

type
  TMyEdit = class(TEdit)
  protected
    // 拦截WM_PASTE消息
    procedure WMPaste(var Message: TWMPaste); message WM_PASTE;
  end;

implementation

uses Clipbrd;

procedure TMyEdit.WMPaste(var Message: TWMPaste);
var
  ClipboardText: string;
  CurrentText: string;
  SelectedLength: Integer;
  NewTotalLength: Integer;
begin
  // 先判断剪贴板是否有文本内容
  if Clipboard.HasFormat(CF_TEXT) then
  begin
    ClipboardText := Clipboard.AsText;
    CurrentText := Self.Text;
    // 获取当前选中的文本长度（粘贴会替换选中内容，要扣除这部分长度）
    SelectedLength := Self.SelLength;
    // 计算粘贴后的总长度
    NewTotalLength := Length(CurrentText) - SelectedLength + Length(ClipboardText);

    if NewTotalLength > Self.MaxLength then
    begin
      // 提示用户长度超标
      MessageBox(Self.Handle, '粘贴的文本过长，超出控件最大允许长度！', '提示', MB_OK or MB_ICONWARNING);
      // 阻止默认粘贴操作
      Message.Result := 0;
      Exit;
    end;
  end;
  // 长度没问题，执行默认粘贴逻辑
  inherited;
end;

end.

使用方法： #

1. 把这个单元加到项目里
2. 在Form上放置TMyEdit控件，设置它的MaxLength属性
3. 当用户粘贴内容时，自动触发长度检查，超过限制就弹窗提示并阻止粘贴

方案二：临时子类化单个TEdit（适合单个控件的场景） #

如果你只是某个特定的TEdit需要这个功能，不想自定义控件，可以直接在Form里子类化该控件的窗口过程：

unit MainFormUnit;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
    Edit1: TEdit;
    procedure FormCreate(Sender: TObject);
    procedure FormDestroy(Sender: TObject);
  private
    FEditOldWndProc: Pointer; // 保存原窗口过程
    function EditCustomWndProc(Ahwnd: HWND; uMsg: UINT; wParam: WPARAM; lParam: LPARAM): LRESULT;
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

uses Clipbrd;

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
  // 子类化Edit1的窗口过程，替换为我们自定义的处理函数
  FEditOldWndProc := Pointer(SetWindowLongPtr(Edit1.Handle, GWLP_WNDPROC, LPARAM(@EditCustomWndProc)));
end;

procedure TForm1.FormDestroy(Sender: TObject);
begin
  // 销毁时恢复原窗口过程，避免内存泄漏
  if Assigned(FEditOldWndProc) then
    SetWindowLongPtr(Edit1.Handle, GWLP_WNDPROC, LPARAM(FEditOldWndProc));
end;

function TForm1.EditCustomWndProc(Ahwnd: HWND; uMsg: UINT; wParam: WPARAM; lParam: LPARAM): LRESULT;
var
  ClipboardText: string;
  CurrentText: string;
  SelectedLength: Integer;
  NewTotalLength: Integer;
begin
  if uMsg = WM_PASTE then
  begin
    if Clipboard.HasFormat(CF_TEXT) then
    begin
      ClipboardText := Clipboard.AsText;
      CurrentText := Edit1.Text;
      SelectedLength := Edit1.SelLength;
      NewTotalLength := Length(CurrentText) - SelectedLength + Length(ClipboardText);

      if NewTotalLength > Edit1.MaxLength then
      begin
        ShowMessage('粘贴的文本过长，超出控件最大允许长度！');
        Result := 0; // 阻止默认粘贴
        Exit;
      end;
    end;
    // 长度合法，执行默认粘贴
    Result := CallWindowProc(FEditOldWndProc, Ahwnd, uMsg, wParam, lParam);
  end
  else
  begin
    // 其他消息交给原窗口过程处理
    Result := CallWindowProc(FEditOldWndProc, Ahwnd, uMsg, wParam, lParam);
  end;
end;

end.

关键细节说明： #

• 为什么要计算SelectedLength？因为如果用户选中了部分文本，粘贴会替换选中内容，直接用当前长度加剪贴板长度会算错，必须扣除选中部分的长度才是准确的最终长度。
• 必须检查剪贴板的格式（CF_TEXT），避免粘贴图片、文件等非文本内容时出现错误。
• 两种方案都只会在用户触发粘贴操作（比如Ctrl+V、右键粘贴）时触发检查，完全不会影响正常的键盘输入，符合你的需求。

内容的提问来源于stack exchange，提问作者niksrb