掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
DELPHI FIVE EDITTEXTの入力制限 (ID:36619)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
ありがとうございます。最後に、全角の場合の文字カウントに関してお伺いしたいのですが、テキストフィールドがAddress.Textで10文字で制御したい場合、 procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char); begin if Maxlength(WideString(Address.Text)) > 10 then Key := #0; end; または、 if MbPos(Address.Test) > 10 then key := #0 end; で大丈夫でしょうか？
←解決時は質問者本人がここをチェックしてください。
更新する
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.