Перемещение изображения

[Павло]

Добрьій день.
Как в скрипте реализовать перемещение Image по горизонтале?

[Simple_Scada]

Здравствуйте.
Для этого можно использовать свойства X, Y, например для перемещения изображения вправо по горизонтали на 10 пикселей:

Код: (delphi)

begin
  Image1.X := Image1.X + 10;
end.

[Павло]

Код: (delphi)

begin
  if Sender is TM_Object then    // проверяем, что Sender это объект
    with Sender as TM_Object do  // приводим Sender к типу "TM_Object"
      if AsInt = 1 then          // если значение переменной объекта = 1
      begin
        Visible := True;          // показать объект
        X := 100;                 // перемещение по оси X
      end
      else                       // иначе
        Visible := False;        // скрыть объект
end.