掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
フォーカス移動 (ID:10642)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
このようにしてはどうでしょう？ procedure TForm1.Edit2KeyPress(Sender: TObject; var Key: Char); begin // 数字とバックスペースキーと処々のキー以外無視する if ((Pos(Key,'0123456789')=0) and // 数字 (Ord(Key) <> VK_BACK) and // バックスペース (Key <> #13)) then begin // エンターキー Key := #0; //無視する end; if(Key = #13)then begin SendMessage(Handle, WM_NEXTDLGCTL, 0, 0); Key := #0; end; end;
←解決時は質問者本人がここをチェックしてください。
更新する
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.