Всем привет!
Появился такой вопрос: как вставить в программу, написанную на 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,