Question

这是我的新问题

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

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

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

end.

Answer 1

要按照NO - con la jaja jsld la la NO - aj124312 NO - lsj NO - aaa NO - ºººº NO - yyamo NO - hoooola NO - ferrrocarrilll NO - reveeer NO - llluvia NO - djsagaklsjgklfagkljfa NO - glalghjrjgkJGSDGg NO - sdfsadasdfsdfsadf NO - sadasdgjkwergjkeqjk NO - hola llluvia NO - dfkjlasfjklasdfgjaklsg NO - kajfgkajfdgjkldfgj NO - akfjgklafd NO - asfkjgakld NO - skadjgflkasjgñl NO - q YES - y YES - 1222133123123 YES - 11111111111123213123 YES - de YES - y etc YES - a3 a4 YES - hola YES - hoola YES - ferrocarril YES - veer YES - reeveer YES - lluvia YES - 121112111111111223 YES - Abstraer, substraer YES - Abstruso YES - Adscribir, circunscribir, inscribir y subscribir, transcribir YES - Adstringir YES - Conscripción YES - Constreñir YES - Construir YES - Demonstrar (variante de demostrar) YES - Obstrucción YES - Imperscrutable e inscrutable, YES - Instridente YES - Instruir YES - Instrumento YES - Menstruación YES - Monstruo YES - Obstruir YES - Premonstratense YES - Sánscrito YES - Transflor YES - Transfregar YES - Transfretar YES - Transgredir值的步骤移动滑块，请将Frequency属性设置为10，将Frequency设置为TickStyle。要将范围设置为负值，只需将tsAuto属性值设置为-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;

如何在Delphi中进行TrackBar平衡？

2 个答案: