Как на панели StatusBar отобразить объект TGaude ? [D7, Win95/98, NT4, Win2k, WinXP]
baryjul © (2002-12-08 15:15:00)
Как на панели StatusBar отобразить объект типа TGaude и его
видимость?
mukha (2002-12-08 20:29:00) [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.
Наверх 
ЧАТ |
Орешник |
|
