Форум программистов, компьютерный форум, киберфорум
Delphi для начинающих
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.64/11: Рейтинг темы: голосов - 11, средняя оценка - 4.64
0 / 0 / 1
Регистрация: 03.05.2014
Сообщений: 7
1

Как сделать, чтобы ввод текста в элемент всегда начинался с заглавной буквы?

20.11.2014, 20:22. Показов 2214. Ответов 3
Метки нет (Все метки)

Подскажите кто знает как можно сделать чтобы ввод текста в элемент всегда начинался с заглавной буквы
то есть нажимаешь например с клавиатуры букву "а" а в элемент вводится так "А"
0

Помощь в написании контрольных, курсовых и дипломных работ здесь.

Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
20.11.2014, 20:22
Ответы с готовыми решениями:

Ввод текста в textBox с заглавной буквы
Здравствуйте подскажите пожалуйста как задать ввод слова в текстовое поле с заглавной буквы?

Как сделать чтобы курсор всегда расположился в начале текста в textBox?
Нужно чтобы курсор всегда расположился в начале текста, но текст должен быть неизменяемым и еще не...

Как сделать чтобы в Combobox всегда был выбран элемент
Доброго времени суток. Есть Combobox со свойством DropDownStyle = ComboBoxStyle.Simple. Если...

Как сделать чтобы определённый элемент всегда отображался поверх страницы?
Как сделать чтобы определённый элемент (к примеру, строчка с рекламой) всегда отображался поверх...

3
пофигист широкого профиля
4398 / 2896 / 820
Регистрация: 15.07.2013
Сообщений: 16,706
20.11.2014, 20:25 2
В обработчике TEdit.OnChange делать первый символ заглавным, если строка не пустая.
0
0 / 0 / 1
Регистрация: 03.05.2014
Сообщений: 7
20.11.2014, 20:29  [ТС] 3
А можно пример кода а то я пробовал и чего то не то получается
0
36 / 31 / 24
Регистрация: 29.11.2013
Сообщений: 67
21.11.2014, 06:34 4
В случае с TEDit
Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
uses StrUtils
.....
// первый символ всегда заглавный, с исключением пробелов
procedure TForm1.Edit1Change(Sender: TObject);
var
  s:string;
  i:integer;
begin
 s:=Edit1.Text;
 i:=Edit1.SelStart;
if  Length(Trim(LeftStr((Edit1.Text),i)))=1 then
 begin
   Delete(s,1,i);
   Edit1.Text:=AnsiUpperCase(LeftStr(Edit1.Text,i))+s;
   Edit1.SelStart:=i;
 end;
end;
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
21.11.2014, 06:34

Помощь в написании контрольных, курсовых и дипломных работ здесь.

Вводится предложение из пяти слов. Сделать, чтобы каждое слово начиналось с заглавной буквы
Вводится предложение из пяти слов. Сделать, чтобы каждое слово начиналось с заглавной буквы

Как сделать чтобы edit.text после ввода в него текста добавлялась всегда точка
Как сделать чтобы edit.text после ввода в него текста добавлялась всегда точка в конец. вводим...

Как сделать простой for чтобы счет начинался с 001,002,...030...100
Как сделать простой for чтобы счет начинался с 001,002,...030...100 for ( $i=001; $i<=100; $i++)...

Как сделать так, чтобы при добавлении класса active к последнему элементу в наборе, отсчет начинался сначала?
как можно при кликке начать отсчет сначала набора, когда доходит до последнего элемента, помогите...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
4
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2021, vBulletin Solutions, Inc.