| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
изменение регистра символов в RichEdit [D7]
sem © (2012-01-24 13:15:00)Доброго времени суток!
Как до ввода символов изменить их регистр в RichEdit?
Спасибо.
sem (2012-01-24 18:10:00) [1]Ega23 огромное спасибо! И sniknik огромное спасибо!
Ega23 (2012-01-24 15:52:00) [2]
> че сложно то так?
И то верно. Не подумал.
> сработает, посмотри тип входящего параметра
Однако латинницу переводит, кириллицу - нет. Ну, в случае Key:=UpCase(Key)
sniknik (2012-01-24 15:51:00) [3]>> На кириллице не сработает.
> сработает, посмотри тип входящего параметра
а, сорри, ты про UpCase... ;(
sniknik (2012-01-24 15:46:00) [4]Ega23 © (24.01.12 15:33) [22]
че сложно то так?
procedure TForm1.RichEdit1KeyPress(Sender: TObject; var Key: Char);
begin
CharUpper(@Key);
end;
> На кириллице не сработает.
сработает, посмотри тип входящего параметра
Ega23 (2012-01-24 15:35:00) [5]
> Key := UpCase(Key);
На кириллице не сработает.
sniknik (2012-01-24 15:33:00) [6]> А что означают эти магические буквы LMD?
http://lurkmore.to/LMD
Ega23 (2012-01-24 15:33:00) [7]
procedure TForm32.RichEdit1KeyPress(Sender: TObject; var Key: Char);
begin
Key := Char(CharUpper(PChar(Key)));
end;
Inovet (2012-01-24 15:29:00) [8]> [20] sem (24.01.12 15:10)
> Меня бы строчки кода выручили!
Key := UpCase(Key);
sem (2012-01-24 15:10:00) [9]Меня бы строчки кода выручили!
Inovet (2012-01-24 15:08:00) [10]> [18] Inovet © (24.01.12 15:05)
> приводи к нужному регистру.
вводимый символ
Inovet (2012-01-24 15:05:00) [11]> [17] sem (24.01.12 15:04)
> А как по мере ввода?
В событии
> [2] Dimka Maslov © (24.01.12 13:39)
> OnKeyPress
приводи к нужному регистру.
sem (2012-01-24 15:04:00) [12]А как по мере ввода? Конечно горящая CapsLock мало привлекательна, тут спорить не буду.
sem (2012-01-24 15:00:00) [13]А что означают эти магические буквы LMD?
Inovet (2012-01-24 14:59:00) [14]> [12] sem (24.01.12 14:49)
Ты зра видишь только насмешки. Представь: твоя программа включила сама Caps Lock, пользователь не догадывается об этом. Теперь он переключается на другое приложение и что-то там долго вводит, и вдруг видит что всё введено в инверсном регистре. Он конечно подумает, что сам дурак нажал злосчастные Caps Lock. Но после второго и третьего раза, он догадается, кто ему свинью подложил.
То же касается изменения любых других настроек и режимов, которые пользователь сам настроил или система по умолчанию.
Надо тепе сменить регистр, меняй его после ввода или по мере ввода, как советовали сразу, но не жми программно кнопки, как ты просишь.
MonoLife (2012-01-24 14:59:00) [15]
> Пардон. Не работает.
это почему это?
RichEdit.text=UpperCase(RichEdit.text)
Германн (2012-01-24 14:53:00) [16]
> sem (24.01.12 14:29) [10]
>
> RWOLFу спасибо!
LMD
sem (2012-01-24 14:49:00) [17]На нужной кнопке будет много чего еще висеть и поэтому не хотелось бы заставлять пользователя нажимать для прохождение на следующий этап работы несколько кнопок. Я думаю сделать так, чтобы его (пользователя) как можно меньше отвлекать от основной мозговой работы. Мне такой вариант интерфейса кажется более профессиональным. Еще раз всего доброго!
Inovet (2012-01-24 14:37:00) [18]> [5] sem (24.01.12 14:16)
> Inovety за юмор плюс! Но тем не менее - как сделать-то?
Пожалуйста! Но пользователь всё равно ругать будет, и хорошо если тебя рядом не будет, а то может не только ругать.
В общем я беспокоюсь за психическое и не только здоровье вас обоих, поэтому без понимания "зачем сделать" не советую "как сделать".
sem (2012-01-24 14:29:00) [19]RWOLFу спасибо! И насмешникам спасибо! Удачи вам!
Германн (2012-01-24 14:29:00) [20]
> Германн © (24.01.12 14:19) [6]
Пардон. Не работает.
| |
Страницы: 