необычный ProgressBar

[andrey4623]

Люди как сделать progressbar как при установке nero, чтобы не процент накапливался, а бегал бегунок?

[NikOnLine]

Нада изменить рараметр Прогресбара "Smooth" на "true"

[JTG]

Нада изменить рараметр Прогресбара "Smooth" на "true"

Неа, это не про то.

procedure TForm1.Create(Sender: TObject);   
var style: cardinal;   
begin   
  style :=GetWindowLong(ProgressBar1.Handle, GWL_STYLE);   
  SetWindowLong(ProgressBar1.Handle, GWL_STYLE, style + PBS_MARQUEE);
end;

все стили спрашивать у Оракула http://msdn2.microsoft.com/en-us/lib...20(VS.85).aspx

А потом отправить прогрессбару сообщение PBM_SETMARQUEE

SendMessage(ProgressBar1.handle, PBM_SETMARQUEE, 1, 100);

http://msdn2.microsoft.com/en-us/lib...42(VS.85).aspx

-----

ЗЫ: "по-дельфийски"

const
  PBS_MARQUEE = $08;
  PBM_SETMARQUEE = WM_USER + 10;
...
protected
   procedure CreateParams(var Params: TCreateParams); override;
...
procedure TMarqueeProgressBar.CreateParams(var Params: TCreateParams);
begin
  inherited;
  Params.Style := Params.Style or PBS_MARQUEE;
end;

-----

Гм, работает без InitCommonControls (из-за XP-манифеста чтоли?)

[andrey4623]

спасибо! )