в событиях KeyPress всех элементов на форме пропиши код:
//
procedure TForm1.FormKeyPress(Sender: TObject; var Key: Char);
begin
memo1.Lines.Add(inttostr(ord(Key)));
memo2.Lines.Add(Key);
end;
Свойства ReadOnly у обоих memo установи в true
Или приложил готовый проект. Переименую proj2.txt в proj2.zip. Сайт не дает прикреплять архивы
Объяснение:
в событиях KeyPress всех элементов на форме пропиши код:
//
procedure TForm1.FormKeyPress(Sender: TObject; var Key: Char);
begin
memo1.Lines.Add(inttostr(ord(Key)));
memo2.Lines.Add(Key);
end;
//
Свойства ReadOnly у обоих memo установи в true
Или приложил готовый проект. Переименую proj2.txt в proj2.zip. Сайт не дает прикреплять архивы
Объяснение: