掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
チャットでの文字の制限について。 (ID:11126)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
入力BOXがEdit1なら… ※MaxLengthプロパティでも制限可能。 procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char); begin if Key = #13 then begin // 押されたキーがEnterキーなら文字数チェック if not (Length(TEdit(Sender).Text) in [1..30]) then Show_Message('文字数が０または長過ぎ！') else //…送信… end; end;
←解決時は質問者本人がここをチェックしてください。
更新する
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.