|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
|
Опции темы | Поиск в этой теме |
11.08.2012, 23:51 | #21 |
Старожил
Регистрация: 16.05.2012
Сообщений: 3,211
|
Предлагаю такое решение (проверил, вроде работает):
В переменных класса объявляем: public { Public declarations } ShiftState: boolean; Добавляем процедуру: procedure TForm1.Edit7KeyDown(Sender: TObject; var Key: Word; Shift: TShiftState); begin ShiftState:=Shift=[ssShift]; end; и меняем условие в исходной процедуре KeyPress: s:= Key; if (Edit7.SelStart=0) or ShiftState then s:=AnsiUpperCase(s) else s:=AnsiLowerCase(s); Key:=s[1];
Начал решать проблему с помощью регулярных выражений. Теперь решаю две проблемы...
|
12.08.2012, 18:21 | #22 |
Участник клуба
Регистрация: 11.08.2012
Сообщений: 1,226
|
Первое, что пришло в голову:
Код:
|
13.08.2012, 11:31 | #23 |
Пользователь
Регистрация: 25.09.2008
Сообщений: 38
|
Ну вот как вариант до кучи. На форму таймер с интервалом 10
Код:
Я с Вами где-то рядом...
Последний раз редактировалось Vigi; 13.08.2012 в 11:39. |
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Заменить в группе ячеек с текстом регистр букв | Wespe | Microsoft Office Excel | 2 | 21.06.2010 09:01 |
Запись в регистр | Vitek-pm | Assembler - Ассемблер (FASM, MASM, WASM, NASM, GoASM, Gas, RosAsm, HLA) и не рекомендуем TASM | 10 | 17.02.2010 04:00 |
Привязка к файлам, Перезагрузка и обновление формы, Регистр букв, Шифровка данных | Лукманов Александр | Общие вопросы Delphi | 2 | 24.12.2008 15:17 |
Регистр для русских букв | Kulibim | Общие вопросы Delphi | 2 | 28.10.2007 17:36 |
регистр | vitalik007 | Общие вопросы Delphi | 2 | 15.09.2007 02:41 |