【结贴】orgcombobox的高度设置

huixiangtao

如何设置orgcombobox的高度？
我设了一下，好像没用，还是默认高度20

lixy

procedure TMainForm.BizFormShow(Sender: TObject);
begin
OrgComboBox1.Height:=90;
end;

huixiangtao

if stringutils.PosIgnoreCase('CLD',dept)>0 then
  begin
  OrgComboBox1.Height:=40;
  OrgComboBox1.Visible:=true;
  //OrgComboBox1.BizTreeView.ShowOptions:=[TBizObjectKind.boOrgRoot, TBizObjectKind.boOrgan, TBizObjectKind.boDept,TBizObjectKind.boPositionMember,TBizObjectKind.boPersonMember];
  //OrgComboBox1.SelectedOptions := [TBizObjectKind.boPersonMember];
  //OrgComboBox1.BizTreeView.ReloadTree;
  end else
  begin

  end;
我写了这么一段代码，断点跟踪，执行到了，可是orgcombobox的高度就是没变。

lixy

我试验过的。我的变了。

huixiangtao

看来我的环境可能有问题，你在formshow中写了那么一句，我刚刚试验了，我这儿combobox1的高度确实变了。可我在别的地方设置高度，就是没变，代码就是2楼那样。

lixy

那您就试验下吧。

huixiangtao

结贴吧。
我这儿就是修改不过来。觉得x3的缺陷还真是够多的，我在别的方面想办法了。