не могу передвигать с click-ом

[19950525]

как мне зделать так штоб обьект сам передвигался и до конца с OnClick?Я пробовал получается тока передвижения.Типа один шаг.Дальше не знаю што делать.Спс заранее.

[Kashp]

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

как мне зделать так штоб обьект сам передвигался до конца с OnClick?Я пробовал как то но не могу не получается.Спс заранее.

Ну по onClick запускаешь таймер и в нём прописываешь перемещение, типа: Объект.left:= Объект.left + 1;

[19950525]

Спс огромное.А точка начало передвижения как прикрепить в другому обьекту?

[Kashp]

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

Спс огромное.А точка начало передвижения как прикрепить в другому обьекту?

ммм... шото я вопроса не понял )

[19950525]

Ну типа если я передвигаю огонь до конца с таймером.Тока вот откуда он выходит).А он конешно выходить из корабля...)Вот тока если я буду передвигать корабль хочю штоб етот огонь закрепилься к нему...Вот как ето зделать не могу понять(
Надеюсь так понятнее...Заранее большое спс

[19950525]

И ешё подскажи как можна запустить етот таймер который я поставил по OnClick? так??:
if OnClick then Image1.Top - 15; end;

што там по править нада?

[Kashp]

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

Ну типа если я передвигаю огонь до конца с таймером.Тока вот откуда он выходит).А он конешно выходить из корабля...)Вот тока если я буду передвигать корабль хочю штоб етот огонь закрепилься к нему...Вот как ето зделать не могу понять(
Надеюсь так понятнее...Заранее большое спс

В этом случае в том же таймере узнаешь координаты корабля (например его правого бока) и соответственно левую сторону снаряда подставляешь к правой стенке корабля, типа так:

procedure TForm1.Timer1Timer(Sender: TObject);
var
 bok_korablya: integer;
begin
 .....
 bok_korablya:=корабль.left + корабль.width;  // Узнаем правую координату (стенку) корабля и присваиваем переменной bok_korablya ее значение
 снаряд.left:=bok_korablya; // ставим левую сторону снаряда к правому боку корабля, отсюда он булет вылетать
.....
end;

:-)

[Kashp]

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

И ешё подскажи как можна запустить етот таймер который я поставил по OnClick? так??:
if OnClick then Image1.Top - 15; end;

што там по править нада?

Timer.Enabled:=true //Включить таймер
Timer.Enabled:=false //Отключить таймер