Detectado javascript desactivado

Tienes el javascript desactivado en este momento. Muchas funciones podrían no funcionar. Por favor reactiva el javascript para obtener una funcionalidad completa.

TrackBar con un Dial.

Comenzado por Guest_Jose Fco_* , nov 30 2008 08:22

Por favor identifícate para responder

4 respuestas en este tema

#1 Guest_Jose Fco_*

Visitante

Escrito 30 noviembre 2008 - 08:22

Hala amigos. Aqui les dejo un TrackBar con un dial.

Imagen Enviada

Aqui el codigo:

delphi

var
  Form1: TForm1;
 
implementation
 
{$R *.dfm}
procedure TForm1.TrackBar1Change(Sender: TObject);
var Index: Cardinal;
begin
case TrackBar1.Position of
  0: Panel1.Left := 8;
  1: Panel1.Left := 30;
  2: Panel1.Left := 53;
  3: Panel1.Left := 75;
  4: Panel1.Left := 97;
  5: Panel1.Left := 119;
  6: Panel1.Left := 141;
  7: Panel1.Left := 163;
  8: Panel1.Left := 185;
  9: Panel1.Left := 207;
 10: Panel1.Left := 227;
 11: Panel1.Left := 246;
 12: Panel1.Left := 271;
 13: Panel1.Left := 291;
 14: Panel1.Left := 313;
 15: Panel1.Left := 336;
 16: Panel1.Left := 358;
 17: Panel1.Left := 380;
 18: Panel1.Left := 402;
 19: Panel1.Left := 424;
 20: Panel1.Left := 446;
 21: Panel1.Left := 468;
  end;
  Panel1.Caption := IntToStr(TRackBar1.Position);
  Panel2.Caption := IntToStr(TRackBar1.Position);
 end;
end.

Espero que les sea de utilidad.
Un Saludo.

PD:Se me ocurre que podemos modificar este codigo y usando el que Caral proporciono ayer.Poner el trackbar invicible y con un timer en su evento OnTimer hacer que un burro corra de algo o tras de algo.