![]() |
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
PorgressBar в StatusBar е
V.V.Putin © (2002-07-07 11:21:00)Здравствуйте!
Подскажите как сделать PorgressBar в StatusBar"е как у IE6?
Помогите плиzzz!!! Очень надо!!!
Viewer (2002-07-07 23:18:00) [1]Или создай наследника от 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;
TTCustomDelphiMaster (2002-07-07 21:29:00) [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;
Dimedrol (2002-07-07 21:15:00) [3]Есть компонентик, к стати,
звать что-то в роде
StatusBarPro...