Delphi中如何使TrackBar保持平衡？答案

【问题标题】：How to make TrackBar balance in Delphi?Delphi中如何使TrackBar保持平衡？
【发布时间】：2017-10-28 21:52:09
【问题描述】：

这是我的新问题

我已将 TrackBar1，Max 设置为 200，Frequency 设置为 10，Position = 100，我想要的是这样的，它从 -100..0..100 移动。

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

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

end.

【问题讨论】：

...然后将Min 设置为-100。另外，不要在一个问题中问两个不同的问题。

标签： delphi trackbar

【解决方案1】：

试试这个代码：

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;

【讨论】：

【解决方案2】：

要按照Frequency 值的步骤移动拇指，请将Frequency 属性设置为10，将TickStyle 设置为tsAuto。要将范围设置为负值，只需将 Min 属性值设置为 -100。

【讨论】：