Форум: "Основная";
Текущий архив: 2004.08.08;
Скачать: [xml.tar.bz2];

Вниз

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

← →
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;


---

← →
TUser ©   (2004-07-28 08:57) [3]

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

---

Страницы: 1 вся ветка

Форум: "Основная";
Текущий архив: 2004.08.08;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.44 MB
Время: 0.035 c