掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
半角文字しか入力を受け付けないようにするには (ID:7873)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
># 「クリップボードからの貼り付け」だと入力できてしまいますが 例えば、OnClick, OnEnterイベントで以下のコード呼んで防ぐとか…(‾∇‾ゞ procedure Zenkaku_Iyaan; var p : PChar; begin if Clipboard.HasFormat(CF_TEXT) then begin p := @((Clipboard.AsText)[1]); while p^ <> #0 do begin if (Byte(p^) and $80) <> 0 then begin Clipboard.Clear; break; end; inc(p); end; end; end; procedure TForm1.Edit1Click(Sender: TObject); begin Zenkaku_Iyaan; end; procedure TForm1.Edit1Enter(Sender: TObject); begin Zenkaku_Iyaan; end;
←解決時は質問者本人がここをチェックしてください。
更新する
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.