Перемещение объектов по форме

← →
Serj © (2003-04-13 17:20) [0]

Как заставить объект равномерно перемещаться по форме?
Пробобал изменять координаты left и top, он появляется только в начальной и конечной точках

← →
Anatoly Podgoretsky © (2003-04-13 17:53) [1]

Менять свойства left и top, другого не дано.
А у тебя ошибка в 17 строке.
Какая гадать не буду, но есть преположения :-)

← →
Giemgo (2003-04-13 18:43) [2]

Достаточно очевидно, что надо использовать таймер с маленьким интервалом и в каждой итерации передвигать объект по чуть-чуть вплоть до конечной точки

← →
NA © (2003-04-13 21:08) [3]

Наверное, немного лучше будет так:
procedure Move; var i, Lefttmp : integer; begin Lefttmp := Myobject.Left; for i:=Lefttmp downto 1 do begin Sleep (1); Myobject.Left := Myobject.Left - 1 end end;

← →
NA © (2003-04-13 21:09) [4]

> Anatoly Podgoretsky © (13.04.03 17:53)
> Менять свойства left и top, другого не дано.
> А у тебя ошибка в 17 строке.

Отчего именно в 17-й? ;)

← →
Giemgo (2003-04-13 21:53) [5]

NA © (13.04.03 21:08)

мне кажется так тормозить будет... хотя фиг знает

← →
Giemgo (2003-04-13 21:59) [6]

NA © (13.04.03 21:08)

мне кажется так тормозить будет... хотя фиг знает

← →
Palladin © (2003-04-13 22:10) [7]

> появляется только в начальной и конечной точках

кажется у меня тоже есть предположения...

код давай

← →
wal © (2003-04-13 22:16) [8]

Вместо Sleep"а поставь Application.ProcessMessages

← →
NA © (2003-04-14 00:40) [9]

> Giemgo (13.04.03 21:53)
> NA © (13.04.03 21:08)
> мне кажется так тормозить будет... хотя фиг знает

А ему, кажется, этого и надо :))))

> wal © (13.04.03 22:16)
> Вместо Sleep"а поставь Application.ProcessMessages

1 - см. выше ;)
2 - ProcessMessages - это хороший стиль, и все такое ;) К тому же, хотя для данного случая оно не особенно критично, но без этой вставки, например, НЕ БУДУТ ДОСТУПНЫ другие контролы, пока не кончится анимация...

P.S. я вапще хотел еще более нагло написать, типа
procedure mmm; for with Myobject do for Tag:=Left downto 1 do begin Sleep (1); Myobject.Left := Tag end
но отчего-то не стал... :))))

← →
NA © (2003-04-14 00:42) [10]

procedure mmm; begin for with Myobject do for Tag:=Left downto 1 do begin Sleep (1); Left := Tag end end

обчепятался весь.

совсем уже сплю... :)))
procedure mmm; begin with Myobject do for Tag := Left downto 1 do begin Sleep(1); Left := Tag end end;

procedure TForm1.Panel1MouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
const
SC_DragMove = $F012;
begin
ReleaseCapture;
panel1.perform(WM_SysCommand, SC_DragMove, 0);
end;

> Anatoly Podgoretsky © (13.04.03 17:53)
> Менять свойства left и top, другого не дано.

Это понятно, но как?

> NA © (13.04.03 21:08)
> Наверное, немного лучше будет так:

Почему пишет ошибку, типа:
Undeclared identifier: "Myobject"

> NA © (14.04.03 00:45)
совсем уже сплю... :)))

Тут всё работает, но
Sleep задерживает ход программы, но форма не обновляется, и объект всё так же появляется только в начальной и конечной точках

> wal © (13.04.03 22:16)
> Вместо Sleep"а поставь Application.ProcessMessages

Ура!!! Получилось, мне так и надо было.

Всем спасибо.

А нельзя тупо перерисовывать методом Update после каждой "фрикции" ?;))

← →
Yanis (2003-04-15 20:06) [15]

procedure TForm1.Button1MouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
ReleaseCapture;
Button1.perform(WM_SysCommand, $F012, 0);
end;

Проще не бывает!

Перемещение объектов по форме Найти похожие ветки