delphi - 如何调整 TrackBar 拇指大小？

Question

我无法将 TTrackBar 拇指大小调整为更大的大小。看图:

我的左边有一个小拇指，我无法将其变大(但不能将 TrackBar 本身变大)。
所需的拇指尺寸显示在带有红色区域的图像上。
也许我可以以某种方式使用 WINAPI？C++ 应用程序通常有更大的拇指。

这就是我真正想要的:

Answer 1

标准轨迹栏控件似乎无法完成此操作。事实上，我看不到任何trackbar style或trackbar message与此相关。只有TBM_SETTHUMBLENGTH ，您也可以从 VCL 的 TTrackBar.ThumbLength 访问它，但这也会影响背景下沉矩形的高度。

一个推论是，我怀疑“C++ 应用程序通常有更大的拇指”这一观察结果。

当然，你可以随时制作 your own trackbar-like control .

或者你只想缩小凹陷的矩形？然后只需在对象检查器中将 ShowSelRange 设置为 False 即可。但如果主题已打开，您仍然无法使拇指大于 24 左右。

如果您使用的是没有 TrackBar.ShowSelRange 的旧版本 Delphi，则需要手动删除窗口样式 TBS_ENABLESELRANGE。您可以随时使用 SetWindowLong 执行此操作，也可以在子类化轨迹栏控件的 CreateParams 中执行此操作。最简单的方法可能是使用“插入器类”:

type
  TTrackBar = class(ComCtrls.TTrackBar)
  protected
    procedure CreateParams(var Params: TCreateParams); override;
  end;

...   
implementation

{ TTrackBar }

procedure TTrackBar.CreateParams(var Params: TCreateParams);
begin
  inherited;
  Params.Style := Params.Style and not TBS_ENABLESELRANGE;
end;

要获得 Notepad++ 屏幕截图中的外观，您还应该将 TickMarks 设置为 tmBoth 并将 TickStyle 设置为 tsNone >.

但这并不能回答你的问题，你的问题是关于让拇指变大。这将使下沉的矩形变小...但是，从您的屏幕截图来看，我猜这就是您想要的。