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.