level 4
又是我们班的哇
2014年04月08日 02点04分
level 11
这个问题关键是字符串处理函数，我这里做了一个：
function GetRollText(AText: string): string;
var
Str1,Str2 : string;
begin
Result := '';
if Length(AText)>1 then
begin
Str1 := Copy(AText,1,Length(AText)-1);
Str2 := Copy(AText,Length(AText),1);
Result := Str2+Str1;
end
else
Result :=AText;
end;
然后用Timer，运行事件里对你的Edit处理就好了，例如：
Edit.text :=GetRollText(Edit.Text);
2014年04月08日 05点04分
3
function GetRollText(AText: string): string;
var
Str1,Str2 : string;
begin
Result := '';
if Length(AText)>1 then
begin
Str1 := Copy(AText,1,Length(AText)-1);
Str2 := Copy(AText,Length(AText),1);
Result := Str2+Str1;
end
else
Result :=AText;
end;
然后用Timer，运行事件里对你的Edit处理就好了，例如：
Edit.text :=GetRollText(Edit.Text);
感谢大神
2014年04月08日 05点04分
level 13
真麻烦，给你另一个思路。
两个Edit，一个用来移动，一个用来接受编辑
2014年04月13日 11点04分
5
两个Edit，一个用来移动，一个用来接受编辑
我觉得用一个label加一个edit比较好，毕竟edit背景不透明，滚动的时候，透明可能效果更好一点
2014年04月13日 11点04分
如果文字移动时需要编辑怎么办？ 透明的问题，如果用FireMonkey框架，可以轻易解决。
2014年04月13日 13点04分