TrackBar - OnChange bei MouseMove unterdrücken

[ralfiii]

Zitat von lbccaleb:

mhh du kannst auf die message reagieren:
TB_THUMBPOSITION

Vielen Dank, so geht's.

Hier die Lösung:

Delphi-Quellcode:

type TSxTrackBar = class(TTrackBar)
  private
    fOnChanged : TNotifyEvent;
    procedure CNHScroll(var Message: TWMHScroll); message CN_HSCROLL;
  published
    property OnChanged: TNotifyEvent read FOnChanged write FOnChanged;
end;

procedure TSxTrackBar.CNHScroll(var Message: TWMHScroll);
begin
     inherited;
     if assigned(fOnChanged) and
        (Message.ScrollCode in [TB_THUMBPOSITION, TB_LINEUP, TB_LINEDOWN, TB_PAGEUP, TB_PAGEDOWN] )
     then
         fOnChanged(self);
end;

P.S: Was bedeutet mhh?