掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
Enterキーを押したときに、OnKeyPressイベントを優先して発生させるには？ (ID：8196)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
キーボードのEnterキーを押したときに、 アクティブコントロールのClickイベントではなく、 EnterキーのOnKeyPressイベントを発生させるにはどうすればよいでしょうか？ 以下のソースで実行したのですが、キーボードから'1'を押したあと、 Enterを押すと、'1'に対応したイベントが発生してしまいます。 よろしくおねがいします。 FormのKeyPreviewはTrueで行なってます procedure TForm1.Button1Click(Sender: TObject); begin Showmessage('this is 1'); end; procedure TForm1.Button2Click(Sender: TObject); begin Showmessage('this is Return'); end; procedure TForm1.FormKeyPress(Sender: TObject; var Key: Char); begin if key = '1' then begin Button1.SetFocus; Button1click(sender); end; if Key = Chr(VK_RETURN) then begin Button2.SetFocus; Button2click(sender); end; end;
←解決時は質問者本人がここをチェックしてください。
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.