[Beast]

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

[Drozh]

Вот чтото этого нужно юзать

Код:

1 2 3 4 5 6 7

<b>procedure</b> TForm1.Edit1KeyPress(Sender: TObject; var Key: Char); <b>begin</b>  <b>if</b> (Length(Edit1.Text) < 1) <b>and</b> (Key in ['а'..'я']) <b>then</b>   Key := AnsiUpperCase(Key)[1]  <b>else</b>   Key := AnsiLowerCase(Key)[1]; <b>end</b>;

Не работает когда ты выделил весь текст и начинаешь заново его писать... Ошибка в этом условии Length(Edit1.Text) < 1

[Beast]

С этой ошибкой есть смысл бороться? И еще, если есть такая фамилия Маадыр-Оол, как после тире тоже прописать заглавную букву?

[san-46]

В событии OnChange этот код работает и когда выдлен весь текст.

Код:

1 2 3 4 5 6 7 8 9 10 11 12

procedure TForm1.Edit1Change(Sender: TObject); var   S : TCaption;   P : Integer; begin   if Length(Edit1.Text) > 0 then begin     P := Edit1.SelStart;     S := AnsiUppercase(Edit1.Text[1]) + Copy(Edit1.Text, 2, 255);     Edit1.Text := S;     Edit1.SelStart := P;   end; end;

А в OnKeyPress когда нажимается символьная клавиша после того как отмечен весь текст, в Text еще сидит вся отмеченная строка, потому и не срабатывает условие Length(Edit1.Text) < 1.

[Beast]

Спасибо, все заработало, если не затруднит, можно пояснить следующий код:

Код:

1 2	P := Edit1.SelStart; S := AnsiUppercase(Edit1.Text[1]) + Copy(Edit1.Text, 2, 255);

[Beast]

Вот еще два кода, которые пишут первую букву - заглавной, остальные строчными в независимости от выделения и Shift'а (оба кода рабочих):

Код:

1 2 3 4 5 6 7 8 9 10 11 12

procedure TForm1.Edit1Change(Sender: TObject); var  s: string; begin   s := Edit1.text;  if length(s) > 0 then  begin   Edit1.SetFocus;   Edit1.SelStart := length(s);   Edit1.text := AnsiUpperCase(Copy(s, 1, 1)) + AnsiLowerCase(Copy(s, 2, length(s)));  end; end;

Код:

1 2 3 4 5 6 7 8 9 10 11

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char); var  s: String; begin   s := Key;  if Edit1.SelStart = 0 then   s := AnsiUpperCase(s)  else   s := AnsiLowerCase(s);   Key := s[1]; end;

[Beast]

А если задать в поле Edit написание тире (#45) - можно автоматически ставить заглавную букву после этого тире? Например такая фамилия: Маадыр-Аглы-Оол.

[san-46]

Сообщение от Beast

Спасибо, все заработало, если не затруднит, можно пояснить следующий код:

Код:

Присвоение Text значения переводит курсор (SelStart - положение курсора в строке) в начало строки, поэтому надо запомнить место, где был курсор и после присвоения установить его на прежнее место.
Во второй строке преобразование первой буквы в заглавную и присоединение к этой букве остальных, начиная со второй. Такие манипуляции непосредственно с методом Text Delphi не допускает, поэтому приходится использовать локальную переменную (S).

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19

procedure TForm1.Edit1Change(Sender: TObject); var   S : TCaption;   P, K : Integer; begin   if Length(Edit1.Text) > 0 then begin     P := Edit1.SelStart;     S := AnsiUppercase(Edit1.Text[1]) + Copy(Edit1.Text, 2, 255);     K := PosEx('-', S);     while K > 0 do begin       if Length(S) > K then         S[K+1] := AnsiUppercase(S[K+1])[1];       Inc(K);       K := PosEx('-', S, K);     end;     Edit1.Text := S;     Edit1.SelStart := P;   end; end;

В этом коде проверяется наличие дефиса в строке и, если находится, то следующая за ним буква переводится в верхний регистр.
Цикл здесь затем, чтобы найти все дефисы в тексте. Их может быть более одного.
функция PosEx находится в модуле StrUtils.

[Beast]

Спасибо за помощь