Ездящий елемент

[bookkc]

Нужно сделать что бы какой-то елемент ездил по форме (имеется введу панель или какой-то невидемый) ездил горизонтально, с права на лево, заезжал в лувый край формы и сразу же выезжал с правого и так бесконечно...

Помогите!!!

[Mad_Cat]

Нужно сделать что бы какой-то елемент ездил по форме

имеется введу панель или какой-то невидимый

А если он невидимый чего заморачиваться то? создай пустую форму --> запусти и скажи что он там есть и ездит!

вот с 2 panels , 1 Timer и 1 Button

procedure TForm1.tmr1Timer(Sender: TObject);
begin
 if pnl1.Left<=Form1.Width-pnl1.Width
 then pnl1.Left:=pnl1.Left+5
 else if pnl1.left<=Form1.Width+pnl1.Width
 then begin pnl1.Left:=pnl1.Left+5;pnl2.Visible:=True;pnl2.Left:=pnl2.Left+5;end
 else
 if pnl2.Left>=0 then begin
   pnl1.Left:=pnl2.Left;
  pnl2.Left:=-pnl2.Width;
  pnl2.Visible:=False;

 end;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
pnl2.Left:=-pnl2.Width;
pnl1.Left:=0;
pnl2.Visible:=False;
end;

procedure TForm1.btn1Click(Sender: TObject);
begin
tmr1.Enabled:=True;
end;
только ездят слева направо)

[bookkc]

Как сделать прозрачную Panel1 ? это я уже сделал...

[Stilet]

Не так просто как кажется но:http://delphiworld.narod.ru/base/transparent_comp.html

[bookkc]

Ну да... не просто

Ещё вопросик:

У меня есть Label1 который стоит на GroupBox1 и этот Label всегда меняет свой текст(Caption) когда текст большой, то он выходит за приделы GroupBox1, как сделать так что бы когда был текст в Label1 большой, то GroupBox1 сам изменялся под размеры Label1.
Думаю вы поняли о чем я ....