Повтор символа при зажатии клавиши клавиатуры

[veen]

Как сделать так, чтобы при зажатии например буквы "А" на клавиатуре она не повторялась типо "ААААААА... (и пока не отпустишь)", а просто один раз символ отрисовывался и всё? Нужно для управления программой с клавиатуры - при нажатии на клавишу "+" выделяется следующий item ( если + зажать то он выделяет до самого низа списка).

Поиск юзал - ничего не нашел

[MoBLer]

Не знаю как в программе но можно в свойствах клавиатуры настроить

[veen]

Нужно именно в программе

[Аватар]

Тогда в Application.OnMessage ловить нажатие и отпускание клавиши

[veen]

Можно по-подробней, я очень новичек

[Sibedir]

var
  Flag: Byte;

procedure TForm1.FormCreate(Sender: TObject);
begin
  Flag := 0;
end;

procedure TForm1.Edit1KeyDown (Sender: TObject; var Key: Word; Shift: TShiftState);
begin
  case Flag of
    0: Flag := 1;
    else Flag := 2;
  end;
end;

procedure TForm1.Edit1KeyUp(Sender: TObject; var Key: Word; Shift: TShiftState);
begin
  Flag := 0;
end;

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
  if Flag = 2 then Key := #0;
end;

[veen]

А если не с буквами, если при нажатии клавиши срабатывает какая то функция, то как сделать чтобы она сработала один раз, а не повторялась пока клавишу не отпустят?

[Stilet]

как сделать чтобы она сработала один раз, а не повторялась пока клавишу не отпустят?

  case Flag of
    0: begin Flag := 1; MyFunc(); end;

MyFunc(); - это твоя функция