我在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;
在一段数据处理过程中也无任何显示。请各位为我分析一下,谢了
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;
在一段数据处理过程中也无任何显示。请各位为我分析一下,谢了
解决方案 »
- 我想要个delphi对表格操作的控件 ~~~~~~~~~~~~~~~
- 急求!!ERROR 1064 (42000): You have an error in your SQL syntax;
- 在delphi中如何让用户自定义表单
- 问一个关于文本文件保存的问题!!!
- 最近回帖咋老失败捏?是俺们村的网络不好还是CSDN的服务器的问题捏?
- 覺得CSDN論壇改版後,少了好多人氣,不知道咋回事?
- 字符串操作的趣问?
- VCL编写问题
- 如何实现数据格式的转换?分数随便你^^^^
- ---- 我有一个Dock问题,Delphi高手请进 ----------
- 紧急求助关于在程序中设置代理的问题
- 以我的全部分相赠,目的是想学一下RAVE的报表设计,望大家能帮帮忙
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;
gauge1 bring to front
self.Gauge1.Left := 0;
self.Gauge1.Top := 0;