регистр букв в Edit

[a_n_n_a]

Здравствуйте, у меня в событии KeyPress Edit'а для того, чтобы в нем писалось только с большой буквы написано

s:= Key;
    if Edit7.SelStart=0 then
      s:=AnsiUpperCase(s)
    else
      s:=AnsiLowerCase(s);
     Key:=s[1];

Все работает, только на Shift не реагирует, а это надо... Не подскажите, как добавить реакцию на Shift? В этой же процедуре или надо будет в OnKeyDown?

[BARNEY]

а может в свойствах эдита указать в

CharCase = ecUpperCase

[a_n_n_a]

Не, тогда получится, что будут всегда заглавные... А мне надо, чтобы первая буква всегда была заглавной, а остальные, как уже пользователь решит сам.
Вот моя процедура и делает первую заглавной, но не дает возможности следующие буквы ввести тоже заглавные...)

[artemavd]

Если слова разделены пробелом, то ищите в строке пробелы. Делайте +1 к полученному значению и делайте первую попавшуюся букву заглавной. Если я правильно понял Вас. Только надо проверять длину слов, т.к. могут быть обычные предлоги попасться. Как вариант.

[a_n_n_a]

artemavd, я сама запуталась)

Ну, например, пользователю надо ввести ООО "Капитал", в моем варианте он сможет ввести только Ооо "капитал".
Вот для исправления косяка с Ооо мне нужна реакция на Shift, чтобы было ООО.

А моя процедура, это типа защиты, чтобы случайно не ввести с маленькой)

[artemavd]

Ну, можно попробовать так. Всего же есть ОАО, ЗАО и ООО. Вот. При вводе в эдит проверяйте какое из этих слов присутствует и подставляйте уже заглавные буквы этих названий. Или, например, так:
(по нажатию клавиш)

 if Edit1.Text = 'ooo' then
 begin
  Edit1.Text:='OOO';
 end;
 if Edit1.Text = 'Ooo' then
 begin
  Edit1.Text:='OOO';
 end;
 if Edit1.Text = 'oOo' then
 begin
  Edit1.Text:='OOO';
 end;
 if Edit1.Text = 'ooO' then
 begin
  Edit1.Text:='OOO';
 end;
....
и т.д.

Вариантов несколько. Или, посмотрите в сторону case...of

Добавлено. А вообще, я бы сделал не так. Я бы предоставил пользователю возможность выбора из ComboBox1 (co свойством Style=csDropDown) выбор типа организации которую он вводит: ООО, ЗАО или ОАО, а после выбора предложил бы ввести уже слово, а дальше попробовал бы сделать как в моем посте №4

[a_n_n_a]

не, не, не, тип организации это я как пример.... пользователь может ввести, что захочет...
Ну, например, одна фирма назвается "КаПитАл", а другая "КаПИтал" и никак иначе их внести нельзя, надо именно так, но чтобы 1я буква всегда заглавная)

[artemavd]

Вот незадача-то а)). А Вы так и не пробовали вариант с поиском пробелов?

[a_n_n_a]

Ну, как я поняла, если делать с поиском пробелов, то получится, что он мне из строчки "Фирма ооо капитал" сделает "Фирма Ооо Капитал", т.е. изменится только первые буквы каждого слова... На это у меня процедурка есть)))
А как добраться до букв с середине...)))
Или я чего-то не догоняю?)

[artemavd]

Может помещать все буквы найденного слова в массив, а потом заменять все буквы прописными кроме первой буквы. Так должен получиться массив букв (или слово, хз) в котором первая будет заглавной, а остальные прописными. Как-то так чтоли)