Советы по Delphi


         

ProgressBar в StatusBar?


Здравствуйте Валентин!

Некоторое время назад была у меня проблема: как вставить ProgressBar в StatusBar?
Не помню где в инете, но я нашел такое решение (мне очень понравилось):

var
pb: TProgressBar;
begin
....pb:= TProgressBar.Create(self);with pb do beginParent:= StatusBar1;Position:= 30;Top:= 2;Left:= 0;Height:= StatusBar1.Height - Top;Width:= StatusBar1.Panels[0].Width - Left;end; //with;pb.Visible:= True;.... end;

Может и Вам понравится.

Алексей Лихолетов
[000490]



Содержание