我在FORM中加入GAUGE控件,FORMCREATE中定仪了:
self.Gauge1.Parent:=self.StatusBar1;
  self.Gauge1.Left:=self.StatusBar1.Panels[0].Width+delta;
  self.Gauge1.Top:=self.StatusBar1.Top+delta;
  self.Gauge1.Width:=self.StatusBar1.Panels[1].Width -delta*2;
  self.Gauge1.Height:=self.StatusBar1.Height-delta*2;
加上以下两句也没用:
  self.Gauge1.Visible:=true;
  application.ProcessMessages;
在一段数据处理过程中也无任何显示。请各位为我分析一下,谢了

解决方案 »

  1.   

    不知你是否要狀態欄上加入GAUGE控件?在狀態欄上加入GAUGE控件代碼如下:
    private
        { Private declarations }
         Gauge1:tGauge;procedure TForm1.FormCreate(Sender: TObject);
    begin
     Gauge1:=tGauge.Create(Form1);
     with Gauge1 do
     begin
     Gauge1.Visible:=true; Parent:=StatusBar1;
     end;
    end;
      

  2.   

    StatusBar1 Send back 
    gauge1 bring to front
      

  3.   

    Gauge1的left,top设置的有问题,这两个属性都是相对parent,都设成0看看
      self.Gauge1.Left := 0;
      self.Gauge1.Top := 0;