Скачать: CL | DM;

Свйство CharCase у TMemo   Найти похожие ветки 

← →
GenaWow   (2009-03-03 13:14) [0]

Мастера подскажите, как в Мемо реализовать ввод букв исключительно верхнего регистра??? Спасибо.

---

← →
Amoeba ©   (2009-03-03 13:34) [1]

В OnKeyPress переводить буквы программно в верхний регистр

---

← →
GenaWow   (2009-03-03 13:47) [2]

я пробовал, но как потом определить где находился курсор, что бы вернуть его на место?

---

← →
{RASkov} ©   (2009-03-03 13:53) [3]

> [2] GenaWow   (03.03.09 13:47)

не так пробывал)
Key:=UpCase(Key);

---

← →
faiwer ©   (2009-03-03 13:59) [4]

procedure TForm1.Memo1KeyPress(Sender: TObject; var Key: Char);
begin
if key in ["à".."ÿ","a".."z"] then key:=chr(ord(key)-32)
end;

>> UpCase(Key);
она ж вроде с русским не знакома =)

---

← →
faiwer ©   (2009-03-03 13:59) [5]

млин из делфи код коряво скопировался.. в общем вместо à - а а вместо ÿ - я =)))

---

← →
{RASkov} ©   (2009-03-03 14:10) [6]

> [4] faiwer ©   (03.03.09 13:59)
> >> UpCase(Key);
> она ж вроде с русским не знакома =)

Ну да..... но можно и так извернуться: Key:=AnsiUpperCase(Key)[1];
я не против твоего кода :) ....так это... для примера)

---

← →
{RASkov} ©   (2009-03-03 14:11) [7]

> [4] faiwer ©   (03.03.09 13:59)
> if key in ["a".."y","a".."z"] then key:=

кстати, как на счет "Ё,ё"? :)

---

← →
clickmaker ©   (2009-03-03 14:22) [8]

SetWindowLong (Memo1.Handle, GWL_STYLE, GetWindowLong(Memo1.Handle, GWL_STYLE) or ES_UPPERCASE);

---

← →
faiwer ©   (2009-03-03 14:24) [9]

> кстати, как на счет "Ё,ё"? :)

if key in ["à".."ÿ","a".."z"] then key:=chr(ord(key)-32) else
if key="ё" then key:="Ё";

=)))

---

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

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.03 c