Delphi 如何在Vcl.ExtCtrls.tbuttonedIt中垂直居中编辑文本？

Vcl.ExtCtrls.tbuttonedIt

是一个标准的Vcl控件。不幸的是，编辑文本垂直附着在顶部，看起来非常难看，而不是垂直居中：

它应该是这样的：

以下是目标代码：

object tlbFilter: TToolBar
  AlignWithMargins = True
  Left = 1
  Top = 30
  Width = 322
  Height = 24
  Margins.Left = 0
  Margins.Top = 5
  Margins.Right = 0
  Margins.Bottom = 2
  BorderWidth = 1
  Color = clBtnFace
  DoubleBuffered = True
  EdgeInner = esNone
  EdgeOuter = esRaised
  Images = ImageList16
  ParentColor = False
  ParentDoubleBuffered = False
  TabOrder = 2
  Transparent = False
  DesignSize = (
    318
    20)
  object edtFilter: TButtonedEdit
    Left = 0
    Top = 0
    Width = 315
    Height = 22
    Anchors = [akLeft, akTop, akRight]
    BorderStyle = bsNone
    Images = ImageList16
    LeftButton.Enabled = False
    LeftButton.ImageIndex = 7
    LeftButton.Visible = True
    RightButton.DisabledImageIndex = 46
    RightButton.HotImageIndex = 2
    RightButton.ImageIndex = 45
    RightButton.PressedImageIndex = 31
    RightButton.Visible = True
    TabOrder = 0
  end
end

---

那么，如何通过将BorderStyle设置为bsSingle，使编辑文本垂直居中于

Vcl.ExtCtrls.tbuttonedIt

？

中。通过将BorderStyle设置为none，您可以通过任何编辑实现相同的效果。我已经这样做了，但现在它仍然看起来很难看，因为左侧图示符垂直附着在底部（以前没有）：我无法将编辑高度设置为小于22。我想您也应该设置自动调整大小，左侧图像不与我的测试一起位于底部。