|
1
Delphi DirectX 8.1. . |
|
,
- delphi directx 8.1 |
|
Delphi. |
|
Delphi DirectX 8.1 ,
Windows DirectX
Delphi.
, Delphi
DirectX 8.1 .
- .
Delphi DirectX
VCL Win32-.
, DirectX.
VCL
,
Delphi. Win32-
, ,
.
VCL-. ,
TForm,
- ,
Delphi DirectX 8.1 - . |
|
. |
|
Delphi 2006. Delphi
7 , ,
,
! |
|
Delphi 2006
File
> New > VCL Forms Application - Delphi for Win32
Delphi 7
File
> New > Application |
|
-
. .
Windows-
Delphi, .
Delphi. Windows-
. ,
Windows - , , ,
.. |
|
, Windows
- DirectX.
,
,
TForm1 TMainForm
Form1 |
|
|
|
Name Form1
MainForm Enter. |
|
|
|
TMainForm OnFormShow
Events,
.
- |
|
|
|
begin end procedure TMainForm.FormShow
// |
|
|
|
, -
,
. |
|
- |
|
|
|
, Delphi g_d3dApp InitD3DApp.
, . |
|
.
TMainForm - |
|
|
|
, -
TD3DGameApp
, type
TMainForm
|
|
TD3DGameApp
= class; |
|
|
|
InitD3DApp,
TD3DGameApp Delphi DirectX
- |
|
InitD3DApp -
procedure
TMainForm.InitD3DApp;
begin
g_d3dApp := TD3DGameApp.Create;
//g_d3dApp.fAppForm := Self;
m_hwndRenderWindow := 0;
//
m_hwndRenderWindow:= RenderWindowPanel.Handle;
g_d3dApp.m_hWnd := m_hwndRenderWindow;
g_d3dApp.Create_(HInstance);
//g_d3dApp.LoadSettings;
end; |
|
|
|
, .
|
|
:
( OnFormShow FormShow)
D3D- (InitD3DApp).
D3D Direct3D, Delphi DirectX
Direct3D, D3D-
Delphi DirectX -
.
( OnFormDestroy)
D3D-
.
procedure TMainForm.ApplicationEventsIdle
( ) g_d3dApp.Render3DEnvironment
,
TPanel.
TPanel , ,
Direct3D. |
|
, ", !",
Render3DEnvironment
FrameMove Render .
, FrameMove
,
. |
|
D3D-
|
|
|
|
D3D-.
Win32- TForm
TD3DGameApp.
,
TMainForm.
- bdsproj, ,
|
|
|
|
Application
VCL. Win32-
. ? [
Donuts3D] |
|
.
, (,
, , , ..), , -
. |
|
[] |
|
|