![](http://img.youtube.com/vi/aWP1gHoDoOw/default.jpg)
![](http://img.youtube.com/vi/j5RBYrkvxPo/default.jpg)
![](http://img.youtube.com/vi/LJ5PnzsM_eI/default.jpg)
![](http://img.youtube.com/vi/_9lzkDV9S9A/default.jpg)
![](datas/avatars/43383-avatar.gif)
Всем привет!
Появился такой вопрос: как вставить в программу, написанную на Delphi, "бегающий" прогресс-бар? Ну, вот такой:
Я игрался со свойствами объекта ProgressBar, с методами для него тоже, но так ничего и не вышло. Может быть, кто-нибудь знает, что делать? Подскажите...
![](datas/avatars/43383-avatar.gif)
Чует моё сердце, господа программисты ещё не проснулись Ладно, ждём-с.
![](datas/avatars/43383-avatar.gif)
Слушайте, ну не верю я, что здесь нет людей, знающих Delphi на 5 с плюсом!
![](datas/avatars/54057-avatar.gif)
Sgt.Riggs, увы но дельфи нет. Где то читал что добавили поддержку некоторых фич висты, но это в посл версиях.
![](datas/avatars/67259-avatar.gif)
Можно попробовать так:
SetWindowLong(ProgressBar1.Handle,GWL_STYLE,GetWindowLong(ProgressBar1.Handle, GWL_STYLE) or $08);
SendMessage(ProgressBar1.Handle, WM_USER + 10, 1, 50);
(перед этим подключите манифест)
![](datas/avatars/43383-avatar.gif)
Leеneum, вот спасибо! Всё работает!
P.S. Слушай, а ты не знаешь ещё, как сделать, чтобы эта бегающая "зелёнка" в начале и в конце прогресс бара не наезжала на его границы?
![](datas/defaultav/std_av.png)
О я смотрю два программе нашли друг друга.
Что скажеш на одном языке пишут(дельфи) и разговаривают.
![](datas/avatars/43383-avatar.gif)
server_64,
![](datas/defaultav/std_av.png)
Sgt.Riggs,