[Vasilih007]

привет всем.

во время написания очередной программы у меня возник вопрос:

procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
if key=38 then Image.Top:=Image.Top-1;
end;

при зажатии клавиши "вверх" происходит сначала рывок картинки вверх, затем пауза (на форумах понял, что это задержка перед началом повтора "панель управления -> клавиатура -> задержка), потом плавно рисунок продолжает движение

вопрос заключается в следующем:
как можно убрать рывок или сделать его как можно меньшим?

[eXplorer]

незнаю... попробуй через Timer

Код:

procedure TForm1.Timer1Timer(Sender: TObject);
begin
Image1.Top:=Image1.Top-1;
end;

procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
if key=38 then  Timer1.Enabled:=true
else
Timer1.Enabled:=false;
end;