ReSQL.ru
     
powered by simpleCommunicator - 2.0.60     © 2026 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Delphi [игнор отключен] [закрыт для гостей] / Вопрос
10 сообщений из 10, страница 1 из 1
Вопрос
    #32261079
Арнис
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Арнис
Участник
У меня на форме сущ. дофига всяких кнопок, эдитов и т.д.
Вопрос: как мне сделать их все Enabled := true (или false). неужели надо всё перечислять в коде или можно как-нить пройтись по ним в цикле например?
...
Рейтинг: 0 / 0
10.09.2003, 12:56
| Ответить | Цитировать | Написать  
Вопрос
    #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, 13:03
| Ответить | Цитировать | Написать  
Вопрос
    #32261191
Фотография Luchkin Dmitry
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Luchkin Dmitry
Участник
можно их сгруппировать, и -- на панель. и делать Enabled:= False для панели
...
Рейтинг: 0 / 0
10.09.2003, 14:17
| Ответить | Цитировать | Написать  
Вопрос
    #32261203
Speaker
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Speaker
Участник
Будет погано отображаться - вроде и активный Edit, а мышкой
ткнуть нельзя, глупый юзер будет в недоумении :)
...
Рейтинг: 0 / 0
10.09.2003, 14:21
| Ответить | Цитировать | Написать  
Вопрос
    #32261363
Арнис
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Арнис
Участник
to Speaker: спасибо. Но тут ещё вопрос - как сделать Enabled и кнопкам и эдитам и т.д. Или на кажый компонент надо свой цикл?
...
Рейтинг: 0 / 0
10.09.2003, 15:43
| Ответить | Цитировать | Написать  
Вопрос
    #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, 15:48
| Ответить | Цитировать | Написать  
Вопрос
    #32261411
Арнис
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Арнис
Участник
Спасибо :)
...
Рейтинг: 0 / 0
10.09.2003, 16:14
| Ответить | Цитировать | Написать  
Вопрос
    #32261935
1man
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
1man
Участник
> Или на кажый компонент надо свой цикл?
Полагаю, в логическом операторе можно использовать логические операции :)например "или".
...
Рейтинг: 0 / 0
11.09.2003, 10:04
| Ответить | Цитировать | Написать  
Вопрос
    #32264979
Арнис
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Арнис
Участник
А такой вариант:
У меня на форме есть pageControl. На нём неск. TabSheet-ов :)
Вопрос: как мне сделать неактивными все эл-ты какого-либо из Tabsheet-ов, а то предложенный вариант вырубает всё на всех TabSheet-ах :(
...
Рейтинг: 0 / 0
15.09.2003, 12:48
| Ответить | Цитировать | Написать  
Вопрос
    #32265013
Lana
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Lana
Участник
Код: plaintext
1.
2.
for i:= 0  to TabSheet.ComponentCount - 1  do 
  if Tabsheet.Components[i] ....
...
Рейтинг: 0 / 0
15.09.2003, 13:07
| Ответить | Цитировать | Написать  
10 сообщений из 10, страница 1 из 1
Форумы / Delphi [игнор отключен] [закрыт для гостей] / Вопрос
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


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