もぐら叩きを作ってみよう その５

今回は、メニューを作成して、そこからゲームのスタートと終了を出来るようにしたいと思います。ついでにバージョン情報なんかも作っちゃいましょう。それでは早速やってみましょう。前回のプロジェクトを開いてください。そして、StandardページにあるMainMenuをフォームに貼り付けて下さい。 そして、メニュ−を作成します。作成の仕方はこちらを参考にして下さい。

このように作成してください。

オブジェクトインスペクタで上のように、それぞれのCaptionプロパティとNameプロパティを作成してください。「スタート」と「終了」の間にある「−−−−」は「−」キー（＝と同じキーです）で実現できます。すると、こんな感じになります。

それでは、それぞれのイベントを書いていきます。

procedure TForm1.Exit1Click(Sender: TObject);
begin
  Close; // 終了します
end;
  
procedure TForm1.Start1Click(Sender: TObject);
begin
  Timer1.Enabled := True;
end;

procedure TForm1.About1Click(Sender: TObject);
begin
  MessageDlg('もぐら叩き ver1.00'#13#13+
             'あなたのなまえ',
             mtInformation, [mbOK], 0);
end;

それでは、最後にオブジェクトインスペクタで Timer1 を選択して Enabled プロパティを False にして下さい。これで、メニューから「スタート」「終了」「バージョン情報」を行えるようになりました。バージョン情報を作ると、結構それなりにソフトっぽく見えてきますね(^^;

up next
Last update: 2002/3/19