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が連続で鳴るなら（通常は鳴る）弾の発射処理を間違えているのではないかな。