1 respuesta en este tema

[wolfran_hack]

Tengo una imagen y un botón, el el cual al hacer click cambia la posición de la imagen a una aleatoria:

delphi

procedure TForm1.Button1Click(Sender: TObject);
begin
Image1.Position.X := Random(form1.Width);
Image1.Position.Y := Random(form1.Height);
end;

con lo cual se cumple lo requerido, pero hay momentos que la imagen sobrepasa el borde del form y hasta desaparece, como se puede llegar a solucionar esto?

[genriquez]

algo así

php

3.Image1.Position.X := Random(form1.Width-Image1.Width);