![]() |
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
как задать свойство Edit, что бы весь текст набирался в верхнем? [D6, Win2k]
PTE © (2002-06-04 12:07:00)как задать свойство Edit, что бы весь текст набирался в верхнем регистре?
спасибо
Blacki (2002-06-05 20:47:00) [1].
MAxiMum (2002-06-04 18:26:00) [2]В StringGrid"е нельзя. Но можно отлавливать OnKeyPress и там изменять передаваемую переменную Key:
Key := AnsiUpperCase(Key)
Song (2002-06-04 13:15:00) [3]Если в design time их нужно все выделить и поменять соответсвущее свойство - оно поменяется у всех выбранных элементов.
Belov (2002-06-04 12:41:00) [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;
PTE (2002-06-04 12:15:00) [5]да а для StringGrid так же оно задается?
PTE (2002-06-04 12:13:00) [6]Спасибо, а может кто знает, вот у меня на форме этих эдитов много можно сразу для всех задать это свойство или надо для каждого в отдельности?
Виктор Щербаков (2002-06-04 12:10:00) [7]Edit1.CharCase := ecUpperCase;