mover un objeto aleatoriamente

[[kurono]]

hola amigos del foro me gustaria saber como puedo mover un objeto x aleatoriamente en cualquier posicion del formulario con la funcion random supongamos q el objeto sea el componente shape1

[[Crandel]]

Justamente lo estas diciendo, con la funcion random

shape1.Left := Random(form1.Width);

[Neftali [Germán.Estévez]]

Si haces algo similar con el Top y además miras la ayuda de randomize para conseguir que realmente sea aleatorio ya lo tienes todo.
Lo colocas dentro del evento de un timer y con eso debería bastar.

[[kurono]]

ok disculpen amigo el codigo funciona perfectamente solo que me gustaria que el objeto se moviera en varias posiciones indicada osea supongamos que tenga 4 componente de imagen1 cada una en una esquina del formulario como hacer que el objecto se mueva aleatoriamente entre los 4 imagen1 y disculpen por la molestia

[Neftali [Germán.Estévez]]

¿Te puedes explicar mejor?

[[kurono]]

ok me explico supongamos que tengo 4 label por ejemplo cada uno de los label esta en una esquina del formulario y en el centro tengo el componente shape1 lo que quiero hacer que el componente shape1 se mueva en la posicion de cada label pero aleatoriamente

[[kurono]]

heyyy amigos quiero saber si me explico correctamente ya que nadie a respondido si hay alguna forma de hacer eso lo pido

[[Crandel]]

Si, haz un Random de 1 a 4 y segun que obtengas lo mueves a cada una de las esquinas.

[[kurono]]

heyyy amigos quiero saber si me explico correctamente ya que nadie a respondido si hay alguna forma de hacer eso lo pido

[[kurono]]

amigo crandel me puedes dar un ejemplo

[Neftali [Germán.Estévez]]

(1) Crea un formulario con los 4 labels con nombres label0, label1, label2 y label3, 1 share y un TTimer.
(2) El intervalo del timer, cada 2000 milisegundos, por ejemplo.
(3) En el evento del timer programa lo siguiente:

Código Delphi [-]
var
  i:Integer;
  lbl:TLabel;
begin
  i := Random(1000);
  i := i MOD 4;

  TComponent(lbl) := FindComponent('Label'+IntToStr(i));

  // encontrado?
  if Assigned(lbl) then begin
    Shape1.Left := lbl.Left;
    Shape1.Top := lbl.Top;
  end;

(4) Y en el show:

Código Delphi [-]
  RandSeed := GetTickCount;
  Randomize;

[[kurono]]

ok amigo neftali lo probare luego te cuento

[[kurono]]

amigo neftali el codigo me funciona perfectamente gracias