掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
OnKeyDownの処理 (ID:33804)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
>ココは何でコメント化したのかな？ 多分、最初はそれでやってみたけれどうまくいかなかったのでOnKeyDownイベントにしてみたってとこではないかと。 procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState); begin case Key of VK_RIGHT: begin FMyPtn.Cmd := cmdActive; //FMyPtn はクラス FMyPtn.Houkou := diRight; end; VK_LEFT: begin FMyPtn.Cmd := cmdActive; FMyPtn.Houkou := diLeft; end; VK_SPACE: begin Beep; GeigekidanOn( FMyPtn.X, FMyPtn.Y ); end; end; end; というようにスペースが押されたときにBeepを鳴らすようにしてみて、 「ボ、ボボボボボボ…」とBeepが連続で鳴るなら（通常は鳴る）弾の発射処理を間違えているのではないかな。
←解決時は質問者本人がここをチェックしてください。
更新する
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.