Ответ:
в событиях ....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. Сайт не дает прикреплять архивы....
Объяснение:
Copyright © 2024 SCHOLAR.TIPS - All rights reserved.
Answers & Comments
Ответ:
в событиях ....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. Сайт не дает прикреплять архивы....
Объяснение: