ИванМ
Спасибо большое,теперь умею связывать денамически созданые объекты с процедурами.
Вот только не знаю как правильно их разрушать,потому что от edit1.destroy Ошибка.
Подскажите пожалуйста как удалять обекты.
Но в этом случае наверно InputQuery больше подходит.Но теперь еще больше вопросов.Задам попорядку.
| Код |
...
type
TForm1 = class(TForm)
MainMenu1: TMainMenu;
N1: TMenuItem;
N2: TMenuItem;
N3: TMenuItem;
Timer1: TTimer;
procedure N2Click(Sender: TObject);
procedure FormDestroy(Sender: TObject);
procedure CreatePlayer;
procedure FormMouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
procedure createball;
procedure ballmove;
procedure Timer1Timer(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
Type
TPlayer = class(TShape)
Public
pspd:integer;
pcor:integer;
end;
type
users = record
name:string;
score:integer;
end;
Type
TBall = class(TShape)
Public
spdx:integer;
spdy:integer;
end;
var
Form1: TForm1;
Player:TPlayer;
Edit1:TEdit;
Label1:TLabel;
useri:users;
Ball:Tball;
overlay:trect;
implementation
{$R *.dfm}
procedure TForm1.createball;
begin
Ball:=TBall.create(self);
with ball do begin
parent:=form1;
shape:=stCircle;
width:=15;
height:=15;
spdx:=3;
spdy:=3;
left:=Player.Left+Player.width div(2);
top:=player.Top-15;
end;
end;
procedure TForm1.N2Click(Sender: TObject);
begin
begin
// Продолжаем спрашивать у полльзователя его имя
InputQuery('Преставтесь', 'Пожалуйста, укажите своё имя',useri.name);
// Показ его имени
ShowMessage('Добро пожаловать '+useri.name+' Ваш счет ='+inttostr(useri.score));
CreatePlayer;
createball;
timer1.Enabled:=true;
end;
end;
procedure TForm1.FormDestroy(Sender: TObject);
begin
Useri.name:='';
Useri.score:=0;
end;
procedure TForm1.CreatePlayer;
begin
Player:=TPlayer.Create(self);
With Player do begin
Parent:=Form1;
width:=50;
height:=15;
top:=300;
left:=50;
player.pcor:=50;
player.pspd:=5;
end;
end;
procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
begin
if player.parent=form1 then Player.Left:=Mouse.CursorPos.X-Form1.ClientOrigin.X;
end;
procedure TForm1.ballmove;
begin
ball.left:=ball.Left+ball.spdx;
ball.Top:=ball.top+ball.spdy;
if ball.Top+ball.Height > clientheight then ball.spdy:=-ball.spdy;
if ball.Left < 0 then ball.spdx:=-ball.spdx;
if ball.Left+ball.width+ball.spdx > clientwidth then ball.spdx:=-ball.spdx;
if ball.Top < 0 then ball.spdy:=-ball.spdy;
end;
procedure TForm1.Timer1Timer(Sender: TObject);
begin
ballmove;
if InterSectRect(overlay,player.BoundsRect,ball.BoundsRect) then
begin
ball.spdy:=-ball.spdy;
ball.spdx:=-ball.spdx;
end;
end;
end.
|
Вобщем вопросы.
Во-первых
| Код |
...
procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
begin
if player.parent=form1 then Player.Left:=Mouse.CursorPos.X-Form1.ClientOrigin.X;
end;
...
|
Как сделать чтобы
1:Не выдавало ошибку при ведение мишки по форме до начала новой игры.А то ошибка потому что player еще не создан.
2:Убрать курсор мыши.
3:Привязать скорость к перемешению мыши.Т.е чтобы пластика двигалась с заданой скоростью.
4:Чтобы не выезжала за правый край формы.
и вот тут чуть посложнее
| Код |
...
procedure TForm1.Timer1Timer(Sender: TObject);
begin
ballmove;
if InterSectRect(overlay,player.BoundsRect,ball.BoundsRect) then
begin
ball.spdy:=-ball.spdy;
ball.spdx:=-ball.spdx;
end;
end;
...
|
Это очень упрошенный способ рекашета шарика от платформы,но существует формула
arccos((x-0.5l)/0.5l), где l - общая длина платформы, а x - расстояние от левого края платформы до точки удара шарика. Но я немогупонять к чему прировнять arccos((x-0.5l)/0.5l). Получается нужно добавлять в класс шара переменную угла его отражения, и как тогда узнать х при столкновение.
Очень прошу ответить на все вопросы.Думаю уже неделю на ними совсем ничего не выходит. |
)