掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
チャットでの文字の制限について。 (ID：11127)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
ありがとうございます。 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 ShowMessage('文字数が０または長過ぎ！') else //…送信… end; end; こちらの方法だと なぜか 発言するたびに メッセージが出ます（＾＾；
←解決時は質問者本人がここをチェックしてください。
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.