|
|
|
|
ProgressBar в StatusBar?
Здравствуйте Валентин!
Некоторое время назад была у меня проблема: как вставить ProgressBar в StatusBar?
Не помню где в инете, но я нашел такое решение (мне очень понравилось):
|
var pb: TProgressBar;
begin ....
pb:= TProgressBar.Create(self);
with pb do begin
Parent:= StatusBar1;
Position:= 30;
Top:= 2;
Left:= 0;
Height:= StatusBar1.Height - Top;
Width:= StatusBar1.Panels[0].Width - Left;
end; //with;
pb.Visible:= True;
....
end;
|
Может и Вам понравится.
Алексей Лихолетов
alicho@go.ru
[000490]
|
|
|
|
|