Das Trackbar-Control erzeugen


Erzeugt wird die Trackbar wie jedes andere Fenster mit der Funktion "CreateWindowEx", wobei die Fensterklasse msctls_trackbar32 heißt (oder alternativ TRACKBAR_CLASS):

hredTB := CreateWindowEx(0, 'msctls_trackbar32', '', WS_VISIBLE or WS_CHILD or
  WS_TABSTOP or TBS_TOP or TBS_AUTOTICKS or TBS_TOOLTIPS,
  10, 15, 275, 35, hWnd, 0, hInstance, nil)


InitCommonControlsEx

Wenn Sie den Befehl "InitCommonControlsEx" verwenden, müssen Sie für die dwICC-Membervariable die Klasse ICC_BAR_CLASSES benutzen.


Fensterstile der Trackbar

Ich stelle hier gleich noch die Fensterstile vor, die ich auch in meinem Programm verwendet habe. Weitere lassen sich im MSDN oder im PSDK nachschlagen:

Wert Beschreibung
TBS_TOP Die Teilstriche werden oberhalb angezeigt.
TBS_BOTH Die Teilstriche werden oberhalb und unterhalb angezeigt.
TBS_AUTOPTICKS Der Abstand der Teilstriche wird automatisch gesetzt. Der Abstand kann mit der Nachricht "TBM_SETTICFREQ" bestimmt werden.
TBS_TOOLTIPS Beim Bewegen des Sliders wird der aktuelle Wert als Tooltipp angezeigt.