with Statusbar1.Canvas do
begin
FillRect(DrawRect);
Font.Color:=clBlack;
w:=TextWidth('welcom to the Delphi interface...');
pen.Style:=psClear;
Rectangle(DrawRect.Left,DrawRect.Top,DrawRect.Right,DrawRect.Bottom);//妙!!!
TextOut(f,DrawRect.Top,'welcom to the Delphi interface...');
end;
if f>w then
f:=f-30
else
f:=DrawRect.right;