DELPHI label 移动
label1.Width:=form1.Width;
label1.Left:=label1.Left - 1;
if label1.Left = 328 then
label1.Left:=form1.Width;
这样会label1.Left到了328的时候直接消失变到 最右边再移动
怎么才可以把文字移动到328的时候,等完全文字消失(在328的地方就像在窗体中移动完一样),直接最后一直移动并消失后,在从最右边进行移动
追问:var
s:string;
begin
s:='OUOUYEYE';
LABATT.Left:=LABATT.Left - 1;
if LABATT.Left <= 328 then
begin
Sleep(100);
LABATT.caption:=copy(LABATT.caption,2,length(LABATT.caption));
if Length(LABATT.Caption)<=1 then
begin
LABATT.Caption:=s;
LABATT.Left:=Main_frm.Width;
end;
end;
这样有点怪异 但是勉强达到要求
答案:i:=0;
if lable1.left=328 then
begin
inc(i);
str1:=lable1.caption;
label1.caption:=copy(str1,i,length(str1)-i);
end;
上一个:谁能教我学DELPHI编程啊?我对此感兴趣!先谢谢了
下一个:access delphi 统计 计算 数据自动更新问题