delphi - 轨迹栏鼠标移动事件的奇怪行为

Question

我正在尝试实现与大多数媒体播放器类似的功能，通过将鼠标移动到媒体持续时间跟踪栏上方，它将显示一个小弹出窗口，通知您鼠标当前位于上方的时间。但在实现下面给出的代码时，我注意到了一个奇怪的行为。

procedure TForm1.TrackBar1MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Single);
var
  pers: Extended;
begin
  pers := (X/TrackBar1.Width);
  PixelLabel.Text := FloatToStr(pers * TrackBar1.Max);
end;

如果我单击轨迹栏的中间，我将获得一个非常接近该点实际轨迹栏值的值，因此，例如轨迹栏范围从 0 到 < strong>2000，我单击中间的某个位置，得到1000，但是当我向左或向右移动时，我开始分别获得更小和更大的值。因此，如果我的鼠标接近起点，例如我可能会得到 180 而不是 100，这应该是该点的实际值。有人可以指出我在这里做错了什么吗？

编辑

我所说的实际轨迹栏值是指源自以下值的值:

procedure TForm1.TrackBar1Change(Sender: TObject);
begin
  ActualLabel.Text := 'Actual Val: '+FloatToStr(TrackBar1.Value);

end;

所以我将鼠标移动到位置 308(这里轨迹栏从 0 到 609)，我将得到一个 perch 值 0.50574，这告诉我鼠标下方位置 308 处的轨迹栏的值为 10114，但是通过单击鼠标并启动 onChange 函数，我得到的值为 10116。当我们从轨迹栏的中间进一步移动到其任一位置时，该差异会增加。双方。

编辑2

一个更清楚的例子是这样的。如下图所示，我将鼠标移动到位置 X=572。如果将该位置表示为整个轨迹栏的百分比，则为 572/609 = 0.9392。因此，人们会期望该位置的轨迹栏值的百分比(最小值:0 - 最大值:200，如图所示)是相同的。换句话说，MValue/max = 0,9392。

但是在单击该确切位置的轨迹栏然后请求其值后，它不会返回我计算为“MValue”的值，如下图所示(鼠标不可见，但该图像确实是在我单击轨迹之后条形图位于同一位置，您可以看到 ActualValue 已更新)

Answer 1

问题1

您计算的值与控件使用的值不匹配。该控件使用以下代码来完成此操作，该代码可以在 FMX.StdCtrls 中找到:

function PosToValue(MinValue, MaxValue, ViewportSize, ThumbSize, TrackSize, 
  Pos: Single; IgnoreViewportSize: boolean): Single;
var ValRel: Double;
begin
  Result := MinValue;
  if (ViewportSize < 0) or IgnoreViewportSize then
    ViewportSize := 0;
  ValRel := TrackSize - ThumbSize;
  if ValRel > 0 then
  begin
    ValRel := (Pos - ThumbSize / 2) / ValRel;
    if ValRel < 0 then
      ValRel := 0;
    if ValRel > 1 then
      ValRel := 1;
    Result := MinValue + ValRel * (MaxValue - MinValue - ViewportSize);
  end;
end;

不同之处在于，这里的代码考虑了拇指的大小。您的公式相当于调用此函数并为 ThumbSize 传递 0 值。

如果您想复制控件的行为，那么您还需要使用此算法。您需要 protected hack 来破解该类。

type
  THackedTrackBar = class(TTrackBar);

procedure TForm1.TrackBar1MouseMove(Sender: TObject; Shift: TShiftState; 
  X, Y: Single);
var
  tb: THackedTrackBar;
begin
  tb := THackedTrackBar(TrackBar1);
  Label1.Text := FloatToStr(
    PosToValue(
      tb.Min,
      tb.Max,
      tb.ViewportSize,
      tb.GetThumbSize(tb.FIgnoreViewportSize),
      tb.Width,
      X,
      tb.FIgnoreViewportSize
    )
  );
end;

问题2

当光标位于轨道缩略图上时，

OnMouseMove 不会触发。这似乎是 FMX TTrackBar 控件的基本限制。底层框架显然知道光标位于拇指上方，因为它用不同的颜色绘制了拇指，即所谓的热跟踪效果。然而，框架这样做似乎不利于让您知道鼠标正在移动。

轨迹栏上的 slider 是作为单独的对象实现的。它是一个 TThumb 类型的对象。 TTrackBar 控件通过 protected 属性公开该对象。您可以使用 protected hack 来获取拇指对象，然后设置其 OnMouseMove 事件处理程序。虽然不是很有趣，但确实是解决该问题的一种方法。