如何在Delphi中实现TrackBar平衡？

Question

这是我的新问题

我已经设置了TrackBar1，最大值为200，频率为10，位置= 100，我想要的是这样的，它从-100..0..100移动。

另外，如何使滑块移动到每个针杆？谢谢。。

procedure TForm1.TrackBar1Change(Sender: TObject);
  begin
  Edit1.Text := IntToStr(Trackbar1.Position);
  end;

end.

Answer 1

要按Frequency值的步长移动拇指，请将Frequency属性设置为10，在本例中将TickStyle设置为tsAuto。要将范围设置为负值，只需将Min属性值设置为-100即可。

Answer 2

尝试以下代码：

procedure TForm1.FormCreate(Sender: TObject);
begin
  TrackBar1.Min := -100;
  TrackBar1.Max := 100;
  TrackBar1.Frequency := 10;
  TrackBar1.TickStyle := tsAuto;
  Edit1.Text := IntToStr(TrackBar1.Position);
end;

procedure TForm1.TrackBar1Change(Sender: TObject);
begin
  Edit1.Text := IntToStr(TrackBar1.Position);
end;