Советы по 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]
