"Бегающий" прогресс-бар

Всем привет!

Появился такой вопрос: как вставить в программу, написанную на Delphi, "бегающий" прогресс-бар? Ну, вот такой:



Я игрался со свойствами объекта ProgressBar, с методами для него тоже, но так ничего и не вышло. Может быть, кто-нибудь знает, что делать? Подскажите...

Чует моё сердце, господа программисты ещё не проснулись Ладно, ждём-с.

Слушайте, ну не верю я, что здесь нет людей, знающих Delphi на 5 с плюсом!

Sgt.Riggs, увы но дельфи нет. Где то читал что добавили поддержку некоторых фич висты, но это в посл версиях.

Можно попробовать так:

SetWindowLong(ProgressBar1.Handle,GWL_STYLE,GetWindowLong(ProgressBar1.Handle, GWL_STYLE) or $08);

SendMessage(ProgressBar1.Handle, WM_USER + 10, 1, 50);

(перед этим подключите манифест)

Leеneum, вот спасибо! Всё работает!

P.S. Слушай, а ты не знаешь ещё, как сделать, чтобы эта бегающая "зелёнка" в начале и в конце прогресс бара не наезжала на его границы?

О я смотрю два программе нашли друг друга.
Что скажеш на одном языке пишут(дельфи) и разговаривают.

server_64,

Sgt.Riggs,