как задать свойство Edit, что бы весь текст набирался в верхнем?

← →
PTE © (2002-06-04 12:07) [0]

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

← →
Виктор Щербаков © (2002-06-04 12:10) [1]

Edit1.CharCase := ecUpperCase;

← →
PTE © (2002-06-04 12:13) [2]

Спасибо, а может кто знает, вот у меня на форме этих эдитов много можно сразу для всех задать это свойство или надо для каждого в отдельности?

← →
PTE © (2002-06-04 12:15) [3]

да а для StringGrid так же оно задается?

← →
Belov © (2002-06-04 12:41) [4]

если в desing-time - то сам понимаешь как...
если в real-time

i: Integer
...
begin
for i:=0 to ComponentCount-1 do
begin
if (Components[i] is TEdit) then
(Components[i] as TEdit).CharCase:=ecUpperCase;
end;

← →
Song © (2002-06-04 13:15) [5]

Если в design time их нужно все выделить и поменять соответсвущее свойство - оно поменяется у всех выбранных элементов.

В StringGrid"е нельзя. Но можно отлавливать OnKeyPress и там изменять передаваемую переменную Key: Key := AnsiUpperCase(Key)

как задать свойство Edit, что бы весь текст набирался в верхнем? Найти похожие ветки