Delphi 11 VCL TTrackBar无Tracking属性，需实现操作结束触发事件

VCL 中的 TTrackBar 没有 FMX 那样的 Tracking 属性，拖动滑块时会随刻度变化频繁触发 OnChange 事件。如果只需要获取用户操作结束后的最终值，可以用以下两种方法实现：

方法一：拦截系统消息捕捉拖动结束信号 #

TTrackBar 基于系统原生控件，拖动结束时会发送 WM_HSCROLL（水平滑块）或 WM_VSCROLL（垂直滑块）消息，其中通知码为 SB_ENDSCROLL 时代表操作完成。可以通过自定义组件封装这个逻辑，添加专属的完成事件：

自定义 TTrackBar 组件代码 #

unit CustomTrackBar;

interface

uses
  Vcl.ComCtrls, Winapi.Messages, Winapi.Windows;

type
  TTrackBarChangeCompleteEvent = procedure(Sender: TObject) of object;

  TCustomTrackBar = class(TTrackBar)
  private
    FOnChangeComplete: TTrackBarChangeCompleteEvent;
    procedure WMHScroll(var Message: TWMHScroll); message WM_HSCROLL;
    procedure WMVScroll(var Message: TWMVScroll); message WM_VSCROLL;
  protected
    procedure DoChangeComplete; virtual;
  published
    property OnChangeComplete: TTrackBarChangeCompleteEvent read FOnChangeComplete write FOnChangeComplete;
  end;

implementation

{ TCustomTrackBar }

procedure TCustomTrackBar.DoChangeComplete;
begin
  if Assigned(FOnChangeComplete) then
    FOnChangeComplete(Self);
end;

procedure TCustomTrackBar.WMHScroll(var Message: TWMHScroll);
begin
  inherited;
  if Message.ScrollCode = SB_ENDSCROLL then
    DoChangeComplete;
end;

procedure TCustomTrackBar.WMVScroll(var Message: TWMVScroll);
begin
  inherited;
  if Message.ScrollCode = SB_ENDSCROLL then
    DoChangeComplete;
end;

end.

将这个组件添加到项目后，直接在窗体上使用，在 OnChangeComplete 事件中读取最终的 Position 值即可。

方法二：定时器延迟触发（简易实现） #

如果不想自定义组件，用定时器就能快速实现需求：

• 每次触发 OnChange 时，重置定时器（关闭再开启）
• 用户停止拖动后，定时器到期时执行最终值的处理逻辑

示例代码 #

procedure TForm1.TrackBar1Change(Sender: TObject);
begin
  Timer1.Enabled := False;
  Timer1.Enabled := True; // 重置定时器，延迟触发
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
  Timer1.Enabled := False;
  // 在这里处理最终值，示例：
  ShowMessage('最终滑块值：' + IntToStr(TrackBar1.Position));
end;

建议将定时器的 Interval 属性设置为 100-200ms，既能保证响应及时，又能避免拖动过程中误触发。

内容的提问来源于stack exchange，提问作者Ives