Question

首先，请耐心等待，因为我对Delphi世界很陌生。我以前是C ++，C＃和嵌入式开发人员。

我在Windows 7 64位上安装了Delphi 7和Delphi RAD Studio 10.2 Starter。

我在两个版本中都尝试了TGauge组件，因为它是Delphi中的标准（我认为）。

所以，问题是当我尝试在运行时使用值设置Progress属性时，它并没有在GUI上反映出来。但是，如果我在设计时从Object Inspector设置一个值，它会反映它应该是的值，以及Gauge 正确地绘制百分比。

测试此行为的步骤：

从＆＃34; Samples＆＃34;拖放TGauge组件。在表格上的调色板。
我在对象检查器中设置了MaxValue = 100和MinValue = 0。
我在表单上创建了一个文本框（txtValue）。

我在表单上创建了一个按钮（btnSetValueClick）并使用了以下代码：

procedure TMainForm.btnSetValueClick(Sender: TObject);
begin
  Gauge1.Progress := StrToInt(txtValue.Text);
end;

所以，我期待Gauge会显示输入的值，但它没有。当我调试代码时，它会命中btnSetValueClick()并在里面设置值。

我在这里缺少什么？

编辑：（这是表单中的代码。）

object Gauge1: TGauge
Left = 53
Top = 81
Width = 191
Height = 113
ParentCustomHint = False
Color = clMenu
ForeColor = clRed
Font.Charset = DEFAULT_CHARSET
Font.Color = clBlack
Font.Height = -11
Font.Name = 'Default'
Font.Style = []
Kind = gkNeedle
ParentColor = False
ParentFont = False
Progress = 35

修改

我创建了一个新项目并从头开始。我放TGauge而没有改变它的任何单一属性。它已经开始工作了，虽然我还没有看到差异会导致这种行为。至少这可能会给这个组件带来线索，但没有明显的原因，特别是像我这样的初学者。

请考虑案件已结案。谢谢。

TGauge在运行时不会改变值

0 个答案: