Советы по Delphi


Progressbar1


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]




Начало    Вперед



Книжный магазин