F777 Silver Member Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору procedure TMainForm.AuthorKeyPress(Sender: TObject; var Key: Char); begin    case Key of       'А'..'Я','а'..'я','Ё','ё','І','і','Ї','ї','Є','є': Key:=#0;      '`': Key:='''';      else ;    end; end; Всего записей: 2182 | Зарегистр. 23-02-2004 | Отправлено: 01:22 12-07-2012 | Исправлено: F777, 01:29 12-07-2012

На первую страницу • к этому сообщению • к последнему сообщению

Компьютерный форум Ru.Board » Компьютеры » Прикладное программирование » Вопросы по Delphi (до версии 2009) - часть 6

Переход по форумам  Закладки   » Компьютеры Цифровое изображение Программы Microsoft Windows UNIX Другие OS Hardware В помощь сисадмину Прикладное программирование Игры Форумные игры   » Интернет Web-программирование В помощь вебмастеру Графика Хостинг Зацените-ка!   » Тематические Ikonboard v.2 Ikonboard v.3 Invision Board Другие форумы PHP-Nuke и другие порталы Мобила   » Общие Спорт Флейм Темы по региональным встречам Музыка и Кино Юмор Литература и Живопись   » Ru.Board Новости Помощь по форуму   » Андеграунд eBookz Варезник Раздачи и акции Мобильный варезник Андеграунд Игры и фильмы   » Специальные Тестирование