掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
処理の流れを一時停止するには？ (ID：24588)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
さどやまさん、結果報告をいたします。 スライドショーですからEditのようなコントロールはないのですが、ShellTreeView1でフォルダを選択させてフォルダにフォーカスが当たるので、 実行すると最初の一回は実行しますが次回は実行しませんでした。 procedure TformMDI.ShellTreeView1KeyUp(Sender: TObject; var Key: Word; Shift: TShiftState); begin Case Key of VK_Space: ShowMessage('キーが押されました'); end; end; 以前、TRichEditの欠陥問題でTabキーが効かない対策として、どこかのサイトで見つけたものがあります。 理屈は判りませんが、たしかに、Tabキーが正常に作動します。 private procedure CMDialogKey(var Msg: TMessage); message CM_DIALOGKEY; ・・・ procedure TformRich.CMDialogKey(var Msg: TMessage); begin if (Msg.WParam = VK_TAB) and (ActiveControl = RichEdit1) then Msg.Result := 0 else Inherited; end; これも毎回キーを押されたのを監視しているので使えないかと試して見たのですが、Tabキー、矢印キー以外は検知しないようです。 文字キーや他のキーを検知するMessageでもあるのかなとトライしています。 では。 また、何かありましたら教えてください。
←解決時は質問者本人がここをチェックしてください。
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.