Преобразовать первую букву каждого слова к верхнему регистру в TEditDelphi , Компоненты и Классы , TEditПреобразовать первую букву каждого слова к верхнему регистру в TEdit
Оформил: DeeCo procedure TForm1.Edit1Change(Sender: TObject); var OldChange: TNotifyEvent; OldStart: Integer; begin with (Sender as TEdit) do begin OldChange := OnChange; OnChange := nil; OldStart := SelStart; if ((SelStart > 0) and (Text[SelStart - 1] = ' ')) or (SelStart = 1) then begin SelStart := SelStart - 1; SelLength := 1; SelText := AnsiUpperCase(SelText); end; OnChange := OldChange; SelStart := OldStart; end; end; Статья Преобразовать первую букву каждого слова к верхнему регистру в TEdit раздела Компоненты и Классы TEdit может быть полезна для разработчиков на Delphi и FreePascal. Комментарии и вопросыМатериалы статей собраны из открытых источников, владелец сайта не претендует на авторство. Там где авторство установить не удалось, материал подаётся без имени автора. В случае если Вы считаете, что Ваши права нарушены, пожалуйста, свяжитесь с владельцем сайта.
|
||||
©KANSoftWare (разработка программного обеспечения, создание программ, создание интерактивных сайтов), 2007 |