Проблема с Image

[Vitalik55]

Препод дал задание написать прогу где самолёт летит на форме с фоном город и им нада управлять кнопками на клавиатуре.

Я сделал фон имадж1 сделал ему алиг по клиенту, потом поставил второй имадж с самолётом написал код (procedure TForm1.FormKeyPress) и када запускаю он её некомпилит если удалить имадж1 то всёработает норм.

Помогите плз поставить фон.

[_Engine_]

Что, так и говорит: - Не буду компилить!?

[Vitalik55]

Жму F9 и выдает ошибку хотя я всю прогу сохранил.

[_Engine_]

Не верю, что из-за Image1 выдает такую ошибку.
Показывай свою прогу

[Sm1Le]

попробуй удалить ехе и откомпилить ....

[Vitalik55]

Проблема в том что прога даже нехочет создавать этот ехе.

[Terran]

Сообщение от Vitalik55

Проблема в том что прога даже нехочет создавать этот ехе.

У вас эта программе работает и самолёт летает. Только маленький совет. Что бы не было мигания во время движения самолёта сделайте так:

Procedure TForm1.FormCreate(Sender: TObject);
Begin
Form1.DoubleBuffered:=True;
End;

[Vitalik55]

Всё заработало только хз почему))) И ещё вопрос как сделать чтобы самолёт када подлетает к краю формы выходил с другой стороны??
If image2.left=730 then
image2.left:=0;
и пробывал так
If image2.left>730 then
image2.left:=0;
это неработает может опять глюки в делфи

[Terran]

Сообщение от Vitalik55

Всё заработало только хз почему))) И ещё вопрос как сделать чтобы самолёт када подлетает к краю формы выходил с другой стороны??
If image2.left=730 then
image2.left:=0;
и пробывал так
If image2.left>730 then
image2.left:=0;
это неработает может опять глюки в делфи

Можете сделать так:

procedure TForm1.FormKeyPress(Sender: TObject; var Key: Char);
var a,b:integer;
begin
a:=image2.Left;
if key='d' then begin
b:=a+3;
image2.Left:=b;
If Image2.Left>=808 Then
Begin
Image2.Left:=-80;
End;
end;
end;
Procedure TForm1.FormCreate(Sender: TObject);
Begin
Form1.DoubleBuffered:=True;
Form1.BorderStyle:=BsSingle;
End;

[Vitalik55]

Большое спасибо всем!! Всё норм пашет выкладываю свою игрульку))))