几幅jpg图片实现横向滚动，怎么写代码？(在线等待

Question

手头上有几幅图片，想实现连续的滚动，即几幅图片相连向右移动，QQ：28320605

Answer 1

你可以在panel上图片，然后用程序控制panel的坐标。

Answer 2

推荐一个控件TpicShow，自己到网上去搜索一下

Answer 3

看一下delphi的图象处理，利用象素，可以实现栅栏式，溶解式，显现，滚动等效果

Answer 4

这里有个单幅图片的，多幅图片时只改变一下原图片就可以了procedure TForm1.N1Click(Sender: TObject);
var
   newbmp: TBitmap;
   i,bmpheight,bmpwidth:integer;
begin
image1.Visible:=true;
form1.Repaint;
newbmp:= TBitmap.Create;
newbmp.Width:=image1.Width;
newbmp.Height:=image1.Height;
bmpheight:=image1.Height;
bmpwidth:=image1.Width;
for i:=0 to bmpwidth do
begin
 newbmp.Canvas.CopyRect(Rect(bmpwidth-i,0,bmpwidth,bmpheight),
                       image1.Canvas,
                       Rect(0,0,i,bmpheight));
 Canvas.Draw(395,109,newbmp);
end;
newbmp.free;
end;

Answer 5

其它也很简单的。可以把在窗体上放两个panel,把图标排好。执行　 while panel1.left<>0 Then
begin
       panel1.left:=left-1;
       application.ProcessMessages;
end;

Answer 6

图片放到下个Image里然后用Timer来改变坐标：
procedure TForm1.Timer1Timer(Sender:TObject);
begin
  if Image1.Left<Left-Image1.Width then
    Image1.Left:=Image1.Left+1;
end;
-----------------------------------------------------
大家有空到这里看看：www.nxrs.net