Question

delphi 菜鸟求助

要求：在EDIT中按右键只能粘贴字母和数字，其它字符过滤掉。
求具体代码，谢谢。

Answer 1

最简单就是自己写组件
Procedure WMPaste(Var Message: TWMPaste); Message WM_PASTE;

Unit Unit1;

Interface

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

Type
TForm1 = Class(TForm)
Procedure FormCreate(Sender: TObject);
Private
Public
End;

TMyEdit = Class(TCustomEdit)
Private
Procedure WMPaste(Var Message: TWMPaste); Message WM_PASTE;
Public
Constructor Create(AOwner: TComponent); Override;
Destructor Destroy; Override;
End;

Var
Form1: TForm1;

Implementation

{$R *.dfm}

{ TMyEdit }

Constructor TMyEdit.Create(AOwner: TComponent);
Begin
Inherited;
End;

Destructor TMyEdit.Destroy;
Begin
Inherited;
End;

Procedure TMyEdit.WMPaste(Var Message: TWMPaste);
Var
I: Integer;
S: WideString;
R: WideString;
Begin
//Inherited;
R := '';
S := Trim(clipbrd.Clipboard.AsText);
For I := 1 To Length(S) Do
Begin
If ord(S[I]) In [ord('0')..ord('9'), ord('a')..ord('z'), ord('A')..ord('Z')] Then
Begin
R := R + S[I];
End;
End;
Text := R;
End;

{ TForm1 }

Var
MyEdit: TMyEdit;

Procedure TForm1.FormCreate(Sender: TObject);
Begin
MyEdit := TMyEdit.Create(self);
MyEdit.Parent := Self;
MyEdit.SetBounds(10, 10, 200, 24);
End;

End.

Answer 2

procedure TForm1.Edit1MouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
var
BoardHandle:THandle;
BoardStr : PChar;
i : Integer;
Str : string;
begin
if Button = mbright then
begin
Str := '';
OpenClipboard(0);
BoardHandle:=GetClipboardData(CF_TEXT);
BoardStr :=GlobalLock(BoardHandle);
for i := 0 to Length(BoardStr)-1 do
begin
if (BoardStr[i] in ['A'..'Z'])
or (BoardStr[i] in ['a'..'z'])
or (BoardStr[i] in ['0'..'9']) then
begin
Str := Str + BoardStr[i];
end;
end;
CloseClipboard;
Edit1.Text := Str;
end;
end;