Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2003.03.03;
Скачать: CL | DM;

Вниз

Player:TPlayer - не работает....   Найти похожие ветки 

 
greenrul ©   (2002-09-24 18:51) [0]

Раньше создавал спрайты по методу 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 по таймерам всяким её свойства.


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


 
cyborg ©   (2002-09-24 21:30) [1]

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

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


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

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

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


 
greenrul ©   (2002-09-25 19:42) [3]

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



Страницы: 1 вся ветка

Текущий архив: 2003.03.03;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.014 c
14-5774
Таня
2003-02-13 07:37
2003.03.03
О музыке


1-5613
Андрей Овдей
2003-02-20 09:19
2003.03.03
Испектор не видит свойства в потомках TForm


1-5518
race1
2003-02-21 09:50
2003.03.03
icon


14-5714
IronHawk
2003-02-02 19:00
2003.03.03
Поскажите где можно найти в электронном виде документацию по


14-5758
tred
2003-02-15 20:12
2003.03.03
string