Текущий архив: 2002.12.19;
Скачать: CL | DM;

Вниз

Как на панели StatusBar отобразить объект TGaude ?   Найти похожие ветки 

← →
baryjul ©   (2002-12-08 15:15) [0]

Как на панели StatusBar отобразить объект типа TGaude и его видимость?

---

← →
mukha ©   (2002-12-08 20:29) [1]

На форму брось TStatusBar. Ниже приведённый код вставь в OnCreate формы.
procedure TForm1.FormCreate(Sender: TObject);
var
G:TGauge;
begin
StatusBar1.Panels.Add;
StatusBar1.Panels[0].Width:=200;
StatusBar1.Panels.Add;
G:=TGauge.Create(Self);
with G do
begin
Parent:=StatusBar1;
BorderStyle:=bsNone;
ForeColor:=clRed;
Progress:=30; //Установлено для показа работы
Top:=3;
Left:=0;//Относительно StatusBar1;
Height:=StatusBar1.Height-Top;
Width:=StatusBar1.Panels[0].Width-Left-1;
end;
end;
BackColor тоже желательно установить как Color самого TStatusBar.
Ну а всё-таки лучше использовать в TStatusBar"е TProgressBar.

---

Страницы: 1 вся ветка

Текущий архив: 2002.12.19;
Скачать: CL | DM;

Наверх

Память: 0.46 MB
Время: 0.015 c