Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / Delphi [игнор отключен] [закрыт для гостей] / Вопрос / 10 сообщений из 10, страница 1 из 1
10.09.2003, 12:56
    #32261079
Арнис
Арнис
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Вопрос
У меня на форме сущ. дофига всяких кнопок, эдитов и т.д.
Вопрос: как мне сделать их все Enabled := true (или false). неужели надо всё перечислять в коде или можно как-нить пройтись по ним в цикле например?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
10.09.2003, 13:03
    #32261094
Speaker
Speaker
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Вопрос
Код: plaintext
1.
2.
3.
4.
5.
6.
var i : Integer;
begin
    for i:= 0  to ComponentCount do
     begin
       if (Components[i] is TEdit) then (Components[i] as TEdit).Enabled := False;
     end;
end;
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
10.09.2003, 14:17
    #32261191
Luchkin Dmitry
Luchkin Dmitry
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Вопрос
можно их сгруппировать, и -- на панель. и делать Enabled:= False для панели
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
10.09.2003, 14:21
    #32261203
Speaker
Speaker
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Вопрос
Будет погано отображаться - вроде и активный Edit, а мышкой
ткнуть нельзя, глупый юзер будет в недоумении :)
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
10.09.2003, 15:43
    #32261363
Арнис
Арнис
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Вопрос
to Speaker: спасибо. Но тут ещё вопрос - как сделать Enabled и кнопкам и эдитам и т.д. Или на кажый компонент надо свой цикл?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
10.09.2003, 15:48
    #32261370
Speaker
Speaker
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Вопрос
Код: plaintext
1.
2.
3.
4.
5.
6.
либо на каждый компонент нужно свою строку в цикле:

if (Components[i] is <твой компонент>) then (Components[i] as <твой компонент>).Enabled := False;

либо, если они все производные от, например, TWinControl то можно так:

if (Components[i] is TWinControl) then (Components[i] as TWinControl).Enabled := False;
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
10.09.2003, 16:14
    #32261411
Арнис
Арнис
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Вопрос
Спасибо :)
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
11.09.2003, 10:04
    #32261935
1man
1man
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Вопрос
> Или на кажый компонент надо свой цикл?
Полагаю, в логическом операторе можно использовать логические операции :)например "или".
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
15.09.2003, 12:48
    #32264979
Арнис
Арнис
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Вопрос
А такой вариант:
У меня на форме есть pageControl. На нём неск. TabSheet-ов :)
Вопрос: как мне сделать неактивными все эл-ты какого-либо из Tabsheet-ов, а то предложенный вариант вырубает всё на всех TabSheet-ах :(
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
15.09.2003, 13:07
    #32265013
Lana
Lana
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Вопрос
Код: plaintext
1.
2.
for i:= 0  to TabSheet.ComponentCount - 1  do 
  if Tabsheet.Components[i] ....
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Форумы / Delphi [игнор отключен] [закрыт для гостей] / Вопрос / 10 сообщений из 10, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]