Бегущая строка в заголовке приложения (Delphi 7)

[Sinx]

Нужно сделать бегущею строку в заголовке формы типа маятник.
Т.е заголовок доходит до конца и идет обратно.

x:string;
a:Boolean;
y,max:integer;
...
procedure TForm1.Timer1Timer(Sender: TObject);
begin
if a=true then
begin
x:=' '+x;
y:=length(Form1.Caption);
Form1.Caption:=x;
if y=max then a:=false;
end;
if a=false then
begin
delete(x,1,1);
y:=length(Form1.Caption);
Form1.Caption:=x;
if y=50 then a:=true;
end;
end;

Проблема в том что этот код работает только при определенном размере формы. Если её увеличить то строка будет доходить не до конца. Надо как то мак. строки(max) связать с ClientWidth. Нужна помощь... Ну или мб есть другой разумный способ.

[SuperVisor]

Как вариант - предлагаю прибавлять столько пробелов, сколько необходимо для правильного поведения маятника. Пробел, как символ, имеет размерность... Размер его, думаю, реально вычислить, даже если у нас не будет известен размер шрифта заранее.... Или можно помудрить с каким-нибудь скрытым лэйблом с параметром автосайз в тру... Размер лэйбла при наращивании меняется, как дошли до размера формы - удаляем пробелы. Можно помудрить с канвой - она, если мне не изменяет память, отдает в свойствах количество пикселей, необходимое для вывода того или иного текста.

[Terran]

Попробуйте вот этот компонент. Он специально написан для таких целей: Scrlcaption.zip