Gracias Marcos, Mira mas o menos lo que quiero es que al arrastar el Thumb del TrackBar me deje pintada la seleccion, y guardar el SelStart y el SelEnd;
Lo que tengo es lo siguiente, pero quiero que al volver a arrastra el Thumb (mouse) me seleccione de nuevo sin utilizar el Tboton;
Por eso deseo si se puede al presionar el Thumb(mouse) tomar el SelStart, arrastar y al soltar el Thumb(mouse) tomar el SelEnd;
(
1 TButton, 1 TTrackBar y 2 TEdit)
Código Delphi
[-]
procedure TForm1.Button1Click(Sender: TObject);
begin
TrackBar1.SelStart := 0;
TrackBar1.SelEnd := 0;
end;
procedure TForm1.TrackBar1Change(Sender: TObject);
begin
TrackBar1.SelEnd := TrackBar1.Position;
Edit2.Text := IntToStr(TrackBar1.Position);
end;
procedure TForm1.TrackBar1Enter(Sender: TObject);
begin
TrackBar1.SelStart := TrackBar1.Position;
Edit1.Text := IntToStr(TrackBar1.Position);
end;
Oto Saludo...