Javascript Disabled Detected

You currently have javascript disabled. Several functions may not work. Please re-enable javascript to access full functionality.

TrackBar con un Dial.

Started by Guest_Jose Fco_* , Nov 30 2008 08:22 AM

Please log in to reply

4 replies to this topic

#1 Guest_Jose Fco_*

Visitante

Posted 30 November 2008 - 08:22 AM

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.