Hola darkmaster360.
Por favor, cuando dudes en que foro debe ir tu mensaje no utilices
Delphi/web utiliza el foro
Varios, luego algún moderador se encargará de direccionarlo donde corresponda, muchas gracias.
Código Delphi
[-]
...
implementation
const
INCREMENTO = 100;
procedure TForm1.FormCreate(Sender: TObject);
begin
KeyPreview := True;
end;
procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
var
ti: Integer;
begin
ti := Timer1.Interval;
with Timer1 do
case Key of
VK_UP : if ti < MaxInt then Inc(ti, INCREMENTO);
VK_DOWN: if ti-INCREMENTO > 0 then Dec(ti, INCREMENTO);
end;
Timer1.Interval := ti;
end;
...
Saludos.