Top.Mail.Ru
Мастера DELPHI, Delphi programming community Титульная страница Поиск, карта сайта Написать письмо 
| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL |
| Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Player:TPlayer - не работает.... [Delphi, Windows]


greenrul ©   (2002-09-24 18:51:00) 

Раньше создавал спрайты по методу with TPlayer.Create(Spritez.Engine), но при таком походе нельзя в нужном месте узнать координаты спрайта и пр. В какой-то доке было написано:

------------------
TPlayer = class(TImageSpriteex)
private
Speed:Single;
public
procedure DoMove(MoveCount: Integer); override;
end;

Теперь перед implementation в var обозначаем наш класс как тип:

var
Form1: TForm1;
Player: TPlayer;

Implementation
Теперь в свойствах DxDraw находим событие DXDrawInitialize и вставляем следующее:

Player := TPlayer.Create(DXSpriteEngine1.Engine);
Player.Image := DXImageList.Items.Find("Player");
Player.X := 250;
Player.Y := 250;
Player.Width := Player.Image.Width;
Player.Height := Player.Image.Height;

------------------

Как я понял, здесь совсем не все расписано - например, создание самого Player...

Пытаюсь делать аналогично примеру, только в MainForm.OnCreate пишу Player1:=TPlayer.Create( А что тут писать???)


Короче, как создать переменную, класса TPlayer, создать её и дальше "грести" в run-time по таймерам всяким её свойства.


Заранее БЛАГОДАРЮ!


greenrul   (2002-09-25 19:42:00) [1]

2cyborg: какие-то проблемы?
2Владимир Васильев: спасибо что подсказали - ступил =)


Владимир Васильев   (2002-09-25 12:34:00) [2]

вместо with TPlayer.Create(Spritez.Engine)

Player1:=TPlayer.Create(Spritez.Engine);
with Player1 do
begin
................


cyborg   (2002-09-24 21:30:00) [3]

Не утруждайте себя созданием игр, потренируйтесь в нажатии кнопок, вывода текста в Label, потом возможно и научитесь создавать глобальные переменные.

Да что вы, что вы, какие благодарности? Да незачто, ну спасибо, можно без аплодисментов.


Наверх

Титульная страница Поиск, карта сайта Написать письмо