掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
フォーカス移動 (ID：10636)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
procedure TInitializedDlg.a_EditKeyPress(Sender: TObject; var Key: Char); begin // 数字とバックスペースキーと処々のキー以外無視する if ((Pos(Key,'0123456789')=0) and // 数字 (Ord(Key) <> VK_BACK) and // バックスペース (Key <> #13)) then // エンターキー begin Key := #0; //無視する end else if(Key = #13)then begin SendMessage(Handle, WM_NEXTDLGCTL, 0, 0); Key := #0; end; end; -------------------------------------------------- 上記のようにEnterキーを押すと移動するように作成したのですが、 Enterを押しても”if(Key = #13)then”以降が全く反応しません。 ちまにみフォームはダイアログです。 どなたか回答できる方いましたら、宜しくお願いします。
←解決時は質問者本人がここをチェックしてください。
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.