掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
ボタンを押してテキストボックスに文字を入力するには？ (ID:4363)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
Halbow です。 > keybd_eventは大文字と小文字を区別できないとのこと すでに、にしのさんの回答がありますが念のため。 前回のコードに、SpeedButton6 は横長に追加して、オブジェクトインスペクタ で以下のように設定します。イベントは設定しません。 SpeedButton6.Caption := 'Shift'; SpeedButton6.AlowAllUp := true; SpeedButton6.GroupIndex := 1; これで、一度おすと押されたままになり、もう一度おすと元に戻ります。 そして、 procedure TForm1.SpeedButton1Click(Sender: TObject); var C:Byte; begin C := TSpeedButton(Sender).Tag; if SpeedButton7.Down then keybd_event(VK_SHIFT, 0, 0, 0); keybd_event(C, 0, 0, 0); keybd_event(C, 0, KEYEVENTF_KEYUP, 0); if SpeedButton7.Down then keybd_event(VK_SHIFT, 0, KEYEVENTF_KEYUP, 0); end; のようにすると、Shift ボタンがへこんでいるときに大文字になります。
←解決時は質問者本人がここをチェックしてください。
更新する
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.