Перемещение каргинки по форме

[Dima DDM]

Здрасьте не подскажите как сделать так чтоб картинка перемешалась по форме !бесконечно! и ударялась об ее углы (ну как иногда текст в заставках) ??

[генерал]

используй свойства image такие как top и left чтобы перемещать картинку
и width и height чтоб проверять не уперлась ли она еще в край формы. например если image.left+image.width>=form.width значит уперлась в правый край формы
пока не упрется перемещай(делать это лучше в таймере, т.к. бесконечный цикл просто повесит программу), как упрется - меняй направление. и так по кругу

[Dima DDM]

Спасибо я знаю но не могли бы вы написать пример а то у меня не получается((( По всякому пробовал....

[Vervolf]

Вот простой пример:
Image будет перемещаться от одного края формы до другого.создай таймер(интервал примерно 100)и в нем напиши:

if a<>1 then
 begin
 image1.Left:=Image1.Left+10;
 if image1.Left>=ClientWidth-image1.Width then
  begin
  a:=1;
  Label1.Caption:='sdf';
  end;
 end;
if a=1 then
 begin
 image1.Left:=Image1.Left-10;
 if image1.Left<=0 then
  begin
  a:=0;
  end;
 end;
Form1.DoubleBuffered:=true;

Предварительно создай и опиши переменную a: integer;
в FormCreate ей присвой a:=0;