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

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

Сегодня мы будем изучать TDXDraw более углубленно.

И так, начинаем новый проект. Кладем на форму компонент TDXDraw*:

Свойство Align у этого компонента ставим alClinet, дабы растянуть его по всей форме*:

У формы пишем вот такой обработчик события 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;

Если мы запустим эту программу, то увидим вот такой вот черный прямоугольник:

при нажатии Alt+Enter программа перейдет в полноэкранный режим, при повторном нажатии обратно в оконный. при нажатии ESC программа завершит работу.

За режим экрана ответственна опция doFullScrin свойства Options*:

Если ее поставить в true, то программа сразу запуститься в полноэкранном режиме. Правда, слегка кривовато - вы увидите в полноэкранном режиме рамку окна. Что бы ее убрать, установите свойство формы BorderStyle в bsNone.

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

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

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

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

Вернуться