Отследить удерживание клавиши

Posted by obzor under Delphi

Как можно в Memo отследить удерживание клавиши? В Memo в начало строки вывожу символ «>», который нельзя удалять. Отслеживаю нажатие кнопок клавиатуры влево, backspace, home, нажатие мыши. Например при нажатии backspace отслеживаю положение курсора и не даю ему попасть левее символа «>». В общем должно быть разрешено делать все что можно в Memo (вводить символы, удалять, выделять), но только в последней строке, не заходя при этом за первый символ «>».
Но загвоздка в том, что если нажать backspace и удерживать, он все равно уходит влево, все удаляет и даже переходит на другие строки выше.

newerow1989

Функция GetKeyState поможет.

var
  Form1: TForm1;
  k:TKeyboardState;

implementation

{$R *.dfm}

procedure TForm1.Timer1Timer(Sender: TObject);
var i:integer;
begin
   Label1.Caption:='        0  1  2  3  4  5  6  7  8  9'+#13#10+'0)     ';
   For i:=0 to High(k) do
   begin
      Label1.Caption:=Label1.Caption+IntToStr(GetKeyState(i))+'  ';
      If i mod 10=9 then
      begin
         Label1.Caption:=Label1.Caption+#13#10+IntToStr((i div 10)+1)+')   ';
         If i<90 then
            Label1.Caption:=Label1.Caption+'  ';
      end;
   end;
end;

end.

тема на форуме

Случайные статьи

• Как сделать чтоб после нажатия на кнопку вместо «А» выводился аналог на азбуке Морзе?
• Как сделать выделение кнопки как в delphi?
• Связать объект с формой
• Конвертирование кодов в символы (URLDecode в Delphi)
• Проверка орфографии в RichView
• Выполнение разных действий в зависимости от выбранного select
• Обращение через TComponent
• ТАЙМЕР В DELPHI
• Исходник простейшей программы с использованием DLL
• Вставка произвольных непечатных символов перед шифрованием и удаление рандомных знаков после расшифровки