[Tneduts]

Доброго времени суток.
Вопрос следующий:
Как реализовать "Имитацию загрузки" (как например когда ХР загружается - "бегают" кубики). Я бы хотел, что то подобное. Просто когда приложение конектится к базе оно какое то время думает, пока не подключится. А вид как будто повисло, вот и хочу что б на это время на форме что то "бегало, крутилось, мигало"
Заранее спасибо.

[Blacksoft]

Код:

const

PBS_MARQUEE            = $08;

PBM_SETMARQUEE         = WM_USER+10;

begin

with ProgressBar1 do

begin

   SetWindowLong (Handle, GWL_STYLE, (GetWindowLong (Handle, GWL_STYLE) or PBS_MARQUEE));

   Perform(PBM_SETMARQUEE, 1, 40);

end;

[Tneduts]

Сообщение от Blacksoft

Код:

const

PBS_MARQUEE            = $08;

PBM_SETMARQUEE         = WM_USER+10;

begin

with ProgressBar1 do

begin

   SetWindowLong (Handle, GWL_STYLE, (GetWindowLong (Handle, GWL_STYLE) or PBS_MARQUEE));

   Perform(PBM_SETMARQUEE, 1, 40);

end;

Ни чего не происходит

[Blacksoft]

всё работает, пропиши код на батон.клик

[Tneduts]

Сообщение от Blacksoft

всё работает, пропиши код на батон.клик

Я сделал так изначально. Сейчас перепроверил - Ни чего не происходит.
Я так понимаю, должны "бегать" квадратики, но подобное не происходит

[Rat]

Что бы работало, нужно добавить XP Manifest.

[Tneduts]

Сообщение от Rat

Что бы работало, нужно добавить XP Manifest.

Помогло Спасибо!