Пишем компьютерную игру на Delphi. Урок 8. Изучаем TDXDraw. Продолжение.

Исходники к уроку можно скачать здесь.

А теперь пример, который мы делали на прошлом уроке, попробуем сделать в бесплатной версии Turbo Delphi. Тут мы компоненты подключить не сможем, так что придется во первых, объявить ссылку на TDXDraw вручную:

TfrmDDDemo = class(TForm)

procedure FormKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);

procedure FormCreate(Sender: TObject);

procedure FormDestroy(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

DXDraw:TDXDraw;

end;

А во вторых, надо в обработчике OnCreate формы создать и подключить компонент TDXDraw:

procedure TfrmDDDemo.FormCreate(Sender: TObject);

begin

DXDraw:=TDXDraw.Create(self);

DXDraw.Parent:=self;

DXDraw.Align:=alClient;

end;

А вот обработчик события OnKeyDown у нас остается прежним:

procedure TfrmDirectX.FormKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);

begin

{ Завершаем работу приложения }

if Key=VK_ESCAPE then Close;

{ Изменяем режим - экранный/полноэкранный - ALT+ENTER }

if (ssAlt in Shift) and (Key=VK_RETURN) then

begin

DXDraw.Finalize;

if doFullScreen in DXDraw.Options then

begin

DXDraw.Cursor := crDefault;

BorderStyle := bsSizeable;

DXDraw.Options := DXDraw.Options - [doFullScreen];

end else begin

DXDraw.Cursor := crNone;

BorderStyle := bsNone;

DXDraw.Options := DXDraw.Options + [doFullScreen];

end;

DXDraw.Initialize;

end;

Все, запускаем программу и тестируем ее. Как видим, в Runtime режиме DelphiX тоже прекрасно работает, хотя требует и некоторых "извращений".

Исходники к уроку можно скачать здесь

Скриншоты, помеченные знаком *, являются цитатами и иллюстрациями программного продукта "Delphi", авторское право на который принадлежит Borland Delphi..

Последнее обновление ( 06.11.2011 г. )

« След.		Пред. »

Вернуться