[[eduarcol]]

Empezado por JoseFco

Bueno asi quedo la cosa:

Código Delphi [-]
 
unit TrackBar;
interface
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ComCtrls, StdCtrls;
type
  TForm1 = class(TForm)
    TrackBar1: TTrackBar;
    Label1: TLabel;
    procedure TrackBar1Change(Sender: TObject);
    
  private
    { Private declarations }
  public
    { Public declarations }
  end;
var
  Form1: TForm1;
  Valores: array[0..15] of Integer;
implementation
{$R *.dfm}
procedure TForm1.TrackBar1Change(Sender: TObject);
begin
Valores[0] := 50;
Valores[1] := 400;
Valores[2] := 150;
Valores[3] := 450;
Valores[4] := 350;
Valores[5] := 40;
Valores[6] := 55;
Valores[7] := 405;
Valores[8] := 550;
Valores[9] := 420;
Valores[10] := 60;
Valores[11] := 410;
Valores[12] := 570;
Valores[13] := 70;
Valores[14] := 150;
Valores[15] := 200;
Label1.Caption := IntToStr(valores[TRackBar1.Position]);
end;
end.

Bueno algunos se preguntaran y ¿para que sirve eso?
Pues yo tengo un componente que trabaja con numeros y para que el componente este de acuerdo con el TrackBar pues tenia que ser asi.
El Label es solo para poder simplificar el procedimiento.

Gracias Maestros.

Un Saludo.

PD: Me jugaron una trampita jejejejejeje

Te recomendaria este cambio:

Código Delphi [-]
 
unit TrackBar;
interface
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ComCtrls, StdCtrls;
type
  TForm1 = class(TForm)
    TrackBar1: TTrackBar;
    Label1: TLabel;
    procedure TrackBar1Change(Sender: TObject);
    
  private
    { Private declarations }
  public
    { Public declarations }
  end;
var
  Form1: TForm1;
  Valores: array[0..15] of Integer =  (50,400,150,450,350,40,55,405,550,420,60,410,570,70,150,200);
implementation
{$R *.dfm}
procedure TForm1.TrackBar1Change(Sender: TObject);
begin
Label1.Caption := IntToStr(valores[TRackBar1.Position]);
end;
end.

de esta forma no tienes que llenarlo siempre que lo utilizes....



PD: ¿Quien te jugo la broma?