貼り付け不可について

joker 2005-07-20 19:10:28 No: 16458

TEditにクリップボードからの貼り付けを許可しないようにするにはどうすればよいのでしょうか？

deldel 2005-07-20 19:13:16 No: 16459

Edit1.ReadOnly := True;

joker 2005-07-20 19:24:04 No: 16460

え〜と、すいません。
言葉足らずでした。

TEditは数字のみの入力を許可しています。
その実現方法として、
if (Pos(Key,'0123456789'#8'')=0) then
begin
Key := #0;
end;

joker 2005-07-20 19:24:04 No: 16461

え〜と、すいません。
言葉足らずでした。

TEditは数字のみの入力を許可しています。
その実現方法として、
if (Pos(Key,'0123456789'#8'')=0) then
begin
Key := #0;
end;

joker 2005-07-20 19:25:36 No: 16462

すいません。猫が・・・^^;

え〜と、すいません。
言葉足らずでした。

TEditは数字のみの入力を許可しています。
その実現方法として、
if (Pos(Key,'0123456789'#8'')=0) then
begin
Key := #0;
end;
と、上記のようにしています。
しかし、貼り付けを行うと、日本語などの2バイト文字も入力できてしまいます。
それを防ぐにはどうすれば良いのでしょうか？

deldel 2005-07-20 20:40:27 No: 16463

じゃあ、ここですかねぇ・・・
http://www2.big.or.jp/~osamu/Delphi/delphi-browse.cgi?index=018477

deldel 2005-07-20 20:42:35 No: 16464

スミマセン・・・リンク先に飛ばないようで・・・
新しいTEditを作成すればいいようです。

type
  TEdit2 = class(TEdit)
    procedure WMPaste(var Message: TMessage); message WM_PASTE;
  end;

procedure TEdit2.WMPaste(var Message: TMessage);
begin
// 何も処理をしない
end;