掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
半角文字しか入力を受け付けないようにするには (ID:7874)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
クリップボードからの貼り付けに関しては、 入力コントロールのサブクラス化を行えば対応できます。 下記が例です。 type TForm1 = class(TForm) Edit1: TEdit; procedure FormCreate(Sender: TObject); procedure FormDestroy(Sender: TObject); private FDefEditProc: TWndMethod; procedure EditProc(var Message: TMessage); public { Public 宣言 } end; var Form1: TForm1; implementation {$R *.DFM} uses Clipbrd; { TForm1 } procedure TForm1.FormCreate(Sender: TObject); begin FDefEditProc:= Edit1.WindowProc; Edit1.WindowProc:= EditProc; end; procedure TForm1.FormDestroy(Sender: TObject); begin Edit1.WindowProc:= FDefEditProc; end; procedure TForm1.EditProc(var Message: TMessage); var Buffer: String; Len : Integer; begin if (Message.Msg = WM_PASTE) then begin Buffer:= Clipboard.AsText; Len := Length(Buffer); if (Len = 0) then Exit; if (ByteToCharLen(Buffer, Len) <> Len) then Exit; end; FDefEditProc(Message); end;
←解決時は質問者本人がここをチェックしてください。
更新する
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.