delphi imageコンポでOnKeyイベント

質問

PaintBoxコンポーネントの中にマウスがあって、マウスで描画している時（マウスは動いていない、ボタンは押されたまま）、キーが押されたことを察知する方法はないでしょうか？

imageコンポーネントにOｎKeyPressとかOnKeyDownのイベントがあれば、ありがたかったのですが？

例えばIllustratorで、選択されたものを移動させながら、ALTキーを押せば複製移動できるような機能です。

回答No.1

esperantisto · ベストアンサー

こんにちは。

おっしゃるとおり、TImage には OnKeyPress 等のイベントはありませんね。

なので、フォームでキー入力を受け付ければ良いのです。
Form1 のプロパティに KeyPreview というプロパティがあるので、これを true に設定します。こうすることで、フォームに置かれている各コンポーネントより先に、入力されたキーをフォームが受け取るようになります。

あとは Form1 の OnKeyPress 等で受け付けたキーを処理するだけです。

どうしても TImage でキー入力の処理をしたければ、TImage から拡張（派生）した自前のコンポーネントを作るしかないでしょう。

補足

＞Form1 のプロパティに KeyPreview
これに気がつきませんでした。
ありがとうございます。
ところで、
＞Form1 の OnKeyPress 等で受け付けたキーを処理するだけです
処理に
if key=18 then paintbox1.Cursor :=crCross;
としたいのですが（18はALTキー）、最初に２回押さないとcrCrossにならないのは、このキーが特殊だからでしょうか？
他のキーは１回目から変わるのですが。
よろしければ、御指導をお願いします。

回答No.2

esperantisto

こんにちは。

ALT キーはショートカットのコンビネーションキーとして使用されますので、DELPHI で普通に入力を得るのは難しいですね。これは、１回目の ALT を入力してすぐに SPACE を入力するとわかりやすいでしょう。

どうしても ALT キーを使いたければ、キー入力を関知するようにウィンドウプロシージャを自前で作って対処する必要がありますが、かなり面倒です。

どうしても…というのでなければ、Ctrl や Shift に仕様変更した方が早くてカンタンでしょう。

お礼

ありがとうございます。
いろいろやっています。
FormKeyDownイベントで
if key=18 then SetCursor(5)
にすると、ALTキー１回目から受付けました。
でも、まだ希望どうりの動きができません。
また、新しい質問をした時よろしくお願いします。