![]() |
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
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Теперь в свойствах DxDraw находим событие DXDrawInitialize и вставляем следующее:
Form1: TForm1;
Player: TPlayer;
Implementation
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, потом возможно и научитесь создавать глобальные переменные.
Да что вы, что вы, какие благодарности? Да незачто, ну спасибо, можно без аплодисментов.