Свйство 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];
я не против твоего кода :) ....так это... для примера)

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

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

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

=)))

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