Question

delphi中怎么让edit的text值滚动

比如说edit1.text:=1234; 那么运行的时候，看见edit1中显示1234，我就是想让这个1234从右向左滚动，怎么做，请高手指点！谢谢

Answer 1

procedure TForm1.Timer1Timer(Sender: TObject); var a:string; begin a:=copy(edit1.Text,1,1); edit1.Text:=copy(edit1.Text,2,3)+a; end;