如何改变cxProgressBar的高度

Question

如何更改cxProgressBar的高度？

我试过这个但到目前为止没有运气：

var
  cxProgressBar1: TcxProgressBar;
begin
  cxProgressBar1 := TcxProgressBar.Create(Self);

  with cxProgressBar1 do
  begin
    Parent := Self;
    Position := 22;
    Width := 113;
    Height := 120;
    Properties.Orientation := cxorVertical;
  end;
end;

高度保持不变。

Answer 1

我忘了设置AutoSize：= false;在设置宽度和/或高度

之前

所以这就是解决方案：

var
  cxProgressBar1: TcxProgressBar;
begin
  cxProgressBar1 := TcxProgressBar.Create(Self);

  with cxProgressBar1 do
  begin
    AutoSize := false;
     .....
  end;
end;