掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
Canvas作画中のスペースキー取得について (ID：6584)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
>ListBox等でOnkeyDownが機能することがわかりました。 PanelはOnKeyDownないですからね． Formであれば以下の様な感じです． procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState); var APoint : TPoint; begin {画面(スクリーン)のどこにマウスカーソルがあるが調査} GetCursorPos(APoint); {それをImage上の座標に変換} APoint:=Image1.ScreenToClient(APoint); if PtInRect(Image1.ClientRect,APoint) then begin if Key=VK_SPACE then begin {Image内でSpace押下時の処理} end else begin {Image外で押下時の処理} end; end; end;
←解決時は質問者本人がここをチェックしてください。
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.