Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Свйство CharCase у TMemo [D7, XP]

GenaWow © (2009-03-03 13:14:00)
Мастера подскажите, как в Мемо реализовать ввод букв исключительно верхнего регистра??? Спасибо.

faiwer (2009-03-03 14:24:00) [1]

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

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

=)))

clickmaker (2009-03-03 14:22:00) [2]
SetWindowLong (Memo1.Handle, GWL_STYLE, GetWindowLong(Memo1.Handle, GWL_STYLE) or ES_UPPERCASE);

{RASkov} (2009-03-03 14:11:00) [3]
> [4] faiwer © (03.03.09 13:59)
> if key in ['a'..'y','a'..'z'] then key:=

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

{RASkov} (2009-03-03 14:10:00) [4]
> [4] faiwer © (03.03.09 13:59)
> >> UpCase(Key);
> она ж вроде с русским не знакома =)

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

faiwer (2009-03-03 13:59:00) [5]
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:00) [6]
млин из делфи код коряво скопировался.. в общем вместо à - а а вместо ÿ - я =)))

{RASkov} (2009-03-03 13:53:00) [7]
> [2] GenaWow (03.03.09 13:47)

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

GenaWow (2009-03-03 13:47:00) [8]
я пробовал, но как потом определить где находился курсор, что бы вернуть его на место?

Amoeba (2009-03-03 13:34:00) [9]
В OnKeyPress переводить буквы программно в верхний регистр

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »