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

как задать свойство 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 их нужно все выделить и поменять соответсвущее свойство - оно поменяется у всех выбранных элементов.

---

← →
MAxiMum ©   (2002-06-04 18:26) [6]

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

---

← →
Blacki ©   (2002-06-05 20:47) [7]

.

---

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

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



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