Foros Club Delphi - TrackBar con BD

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)

- Varios (https://www.clubdelphi.com/foros/forumdisplay.php?f=11)

- - TrackBar con BD (https://www.clubdelphi.com/foros/showthread.php?t=60551)

Era para ver si ponían atención. Y de todas formas te baneo :D :D

// Saludos

Cita:

Empezado por roman (Mensaje 318469)

Era para ver si ponían atención. Y de todas formas te baneo :D :D

// Saludos

:eek: :eek: :eek: ¡¡¡PUF!!! :cool:

"Tolomeo se mudo al Polo Norte"

¿Y los valores no los tenías en una base de datos?.

Saludos.

"Tolomeo se mudo al Polo Norte"

Cita:

Empezado por JoseFco (Mensaje 318518)

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 ;):):D

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?

"Tolomeo se mudo al Polo Norte"

que rapido aprendes :D

una recomendacion, para futuros mantenimientos, colocale a los objetos nombres relacionados con lo que hace, porque en un tiempo que vuelvas a abrir el proyecto puedes confundirte con trackbar1 y trackbar2, no vas a saber cual es cual, o mejor dicho para que usastes cada uno...

Cita:

Empezado por eduarcol (Mensaje 318635)

Ouchh!!! ¿donde estabas hace dos años? Esa sugerencia me hizo falta!!

Cita:

Empezado por JoseFco (Mensaje 318627)

La pregunta es si esto esta bien asi, que si ¿Con un solo TrackBar puedo tener dos arrays?

Pues es que esta pregunta sólo la puedes contestar tú mismo. Si usas un sólo TrackBar, será como si ambos arreglos estuvieran en la misma posición (aunque distintos valores), pero sólo tú sabes si eso es lo que quieres o no.

// Saludos

Cita:

Empezado por FGarcia (Mensaje 318636)

Ouchh!!! ¿donde estabas hace dos años? Esa sugerencia me hizo falta!!

hace dos años mas o menos a esta hora, o un poquito mas temprano? :confused: :D

Cita:

Empezado por JoseFco (Mensaje 318627)

¿Con un solo TrackBar puedo tener dos arrays?

Si, si tienes alguna forma luego de saber qué array utiliar y a qué Label asignar el valor. ¿Lo tienes? :D

"Tolomeo se mudo al Polo Norte"