PorgressBar в StatusBar е

← →
V.V.Putin (2002-07-07 11:21) [0]

Здравствуйте!
Подскажите как сделать PorgressBar в StatusBar"е как у IE6?
Помогите плиzzz!!! Очень надо!!!

← →
Dimedrol (2002-07-07 21:15) [1]

Есть компонентик, к стати,
звать что-то в роде
StatusBarPro...

← →
TTCustomDelphiMaster (2002-07-07 21:29) [2]

Буду краток :)

procedure TForm1.Button1Click(Sender: TObject);
begin
with TProgressBar.Create(self) do
begin
Parent := StatusBar1;
height := 10;
Left := 30;
top := 5;
Position := 30;
end;
end;

← →
Viewer (2002-07-07 23:18) [3]

Или создай наследника от TStatusBar, который сможет принимать на себя в design-time компоненты

...
type

TtsvStatusBar = class(TStatusBar)
public
constructor Create(AOwner: TComponent); override;
end;

implementation

uses Consts;

constructor TtsvStatusBar.Create(AOwner: TComponent);
begin
inherited Create(AOwner);
ControlStyle := ControlStyle + [csAcceptsControls];
end;

PorgressBar в StatusBar е Найти похожие ветки