Перевод символов в верхний регистр при вводе

← →
Last (2004-07-28 07:58) [0]

Господа! Подскажите,пожалуйста, ответ на простой вопрос. Срочно надо. Как при вводе символов, например в Edit, преобразовывать их к верхнему регистру?

← →
Думкин © (2004-07-28 08:15) [1]

AnsiUpperCase + onKeyPress

← →
Андрей Л. (2004-07-28 08:31) [2]

Edit1.CharCase:=ecUpperCase;

procedure TForm1.Edit1KeyPress;
begin
key:=upcase(key);
{
if key in ["a".."z"] then
key:=chr(ord(key)-(ord("a")-ord("A")));
}
end;

Перевод символов в верхний регистр при вводе Найти похожие ветки