掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
del5pro:editコントロールでひらがな以外の入力を禁止させる (ID:33968)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
こんな感じかな？ var B: Boolean; procedure TForm4.Edit1Change(Sender: TObject); var S: WideString; begin if B = False then begin B := True; S := Copy(Edit1.Text,Length(Edit1.Text)-1,2); if Pos(S,'あいうえおかきくけこさしすせそたちつてとなにぬねのはひふへほまみむめもやゆよらりるれろわんをぁぃぅぇぉゃゅょっがぎぐげござじずぜぞだぢづでどばびぶべぼぱぴぷぺぽ') = 0 then begin Edit1.Text := Copy(Edit1.Text,1,Length(Edit1.Text)-2); Edit1.SelStart := Length(Edit1.Text); end; B := False; end; end; procedure TForm4.FormCreate(Sender: TObject); begin Edit1.ImeMode := imHira; end;
←解決時は質問者本人がここをチェックしてください。
更新する
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.