DirectXの初期化 - Delphi

インストールが終 ったので、アプリケーション作成に入ってみます。まずは、一番簡単な初期化からはじめてみたいと思います。 まず、アプリケーションの新規作成をします。Managed DirectXを利用するので、VCLフォームアプリケーションを選択します。（WinFormでも構わないと思います)

右側のプロジェクトマネージャーの参照先を選択して、右クリックのポップアップメニューで「参照の追加」をクリックします。

「参照の追加」ダイアログが開きますので、アセンブリを選択します。

Microsoft.DirectX と Microsoft.DirectX.Direct3D を選択して追加します。

参照先はこのようになります。

次にコードを書きます。コードは、フォームのOnCreateとOnPaintに書きます。また、initDeviceメソッドも作成します。コードの内容は下図のとおりです。

　プログラムを実行します。青で初期化できることを確認できました。

補足しておきますと、前回delphi8でDirectXを使ったときは DeviceのCreateの最後の引数であるPresentParametersはひとつでしたが、その後のMDXのバージョンアップによるものなのか、ここが配列に変わっています。マルチディスプレイの場合以外は１つ渡せばよいそうなので、SetLengthで長さ１にセットして０番目に値をセットしてCreateに渡しています。