Имя пользователя:
Пароль:
 

Название темы: OnKeyPress
Показать сообщение отдельно

Аватара для Prisoner

Engrossed by the Void


Сообщения: 2229
Благодарности: 60

Профиль | Отправить PM | Цитировать


Глупый пример
Код: Выделить весь код
procedure TForm1.FormKeyPress(Sender: TObject; var Key: Char);
begin
  Form1.Caption:='666';
end;
работает корректно. Чуть конкретнее плиз.

-------
Не могу дать более дельный совет - не хватает системных ресурсов...


Отправлено: 02:23, 07-07-2003 | #2

Название темы: OnKeyPress