TrackBar con rango ??

[marcoszorrilla]

Bueno no sé si es exactamente lo que pides, pero quizás te de alguna idea. Necesitamos un Edit (ReadOnly = True), un UpDown, dos TButton y la propia TrackBar.

El código que he compuesto es este:

Código Delphi [-]
procedure TForm1.FormCreate(Sender: TObject);
begin
Updown1.Min:=TrackBar1.Min;
Updown1.Max:=TrackBar1.Max;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  if CheckBox1.Checked then
  begin
  TrackBar1.SelStart:=StrToInt(Edit1.text);
  CheckBox1.Caption:='Inicio';
  TrackBar1.Position:=StrToInt(Edit1.text);
  end
  else
  begin
  TrackBar1.SelEnd:=StrToInt(Edit1.text);
  CheckBox1.Caption:='Final';
  end;


TrackBar1.Update;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
  while trackbar1.Position < Trackbar1.SelEnd do
  begin
  TrackBar1.Position:=TrackBar1.Position + 1;
  Sleep(90);
  end;
end;

Un Saludo.