掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
ボタンを押してテキストボックスに文字を入力するには？ (ID：4360)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
Halbow です。 Edit1 と SpeedButton を５つ配置してください。 オブジェクトインスペクタで以下のようにセットしてください。 SpeedButton1.Caption := 'A'; SpeedButton1.Tag := 65; SpeedButton1.Caption := 'B'; SpeedButton1.Tag := 66; SpeedButton1.Caption := 'C'; SpeedButton1.Tag := 67; SpeedButton1.Caption := 'D'; SpeedButton1.Tag := 68; SpeedButton1.Caption := 'E'; SpeedButton1.Tag := 69; 最後に、この五つの SpeedButton をマウスで同時に選択し、 オブジェクトインスペクタのイベントタブのところの OnClick イベントのところをダブルクリックして自動生成されたハンドラで 以下のようにします。 procedure TForm1.SpeedButton1Click(Sender: TObject); var C:Byte; begin C := TSpeedButton(Sender).Tag; keybd_event(C, 0, 0, 0); keybd_event(C, 0, KEYEVENTF_KEYUP, 0); end; 実行して、Edit1 にフォーカスがあるとき、各スピードボタンを 押すと、キーボード入力と同じ文字が入力されます。IME が On でもうまくいきます。SpeedButton は入力フォーカスを持たない ので、この場合は便利です。
←解決時は質問者本人がここをチェックしてください。
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.