В DBEdit вводится некоторое слово кирилицей. Можно ли как-то организовать чтобы первая буква этого слова автоматически становилась заглавной, как-будто мы при этом нажали shift?
function UpCase(c : Char) : Char;не годится, т.к. применима только к символам 'a'..'z'
AnsiUpperCase(DBEdit1.Text[1]);но тоже чтото не получается. и с Upcase тоже.
procedure TForm1.DBEdit1KeyPress(Sender: TObject; var Key: Char);
begin
//
with (Sender as TDBEdit) do
begin
if Length(Text) = 1 then
begin
Text := AnsiUpperCase(Text);
SelStart := 2; // Иначе после смены символа каретка перескочит в начало
end;
end;
end;