|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
|
Опции темы | Поиск в этой теме |
15.07.2010, 20:07 | #1 |
Trust no one.
Старожил
Регистрация: 07.04.2009
Сообщений: 6,526
|
[LAZARUS] Вкл\Откл все ToogleBox`ы разом.
Собссно сабж выше. Можно в 3-4 строки. Главное, чтобы все не перечислять. Имена тогглов такие: TGB1 - TGBXXX
SQUARY PROJECT - НАБОР БЕСПЛАТНЫХ ПРОГРАММ ДЛЯ РАБОЧЕГО СТОЛА.
МОЙ БЛОГ GRAY FUR FRAMEWORK - УДОБНАЯ И БЫСТРАЯ РАЗРАБОТКА WINAPI ПРИЛОЖЕНИЙ |
15.07.2010, 20:23 | #2 |
Форумчанин
Регистрация: 13.07.2010
Сообщений: 346
|
ниче не понял но копай в сторону
ComponentCount типа того TGB(Component[number]).Toggle := Component[number] is TGB;
Non est culpa vin, sed culpa bibentis
|
15.07.2010, 20:38 | #3 | |
Trust no one.
Старожил
Регистрация: 07.04.2009
Сообщений: 6,526
|
Цитата:
ToggleBox это такая фиговина, похожая на кнопку, но которую можно "вжать": На форме на разных страницах TPageControl находится с 3 десятка тогглов. Мне нужно, чтобы когда один "вжимался" - все остальные "выжимались". Количество тогглов заранее неизвестно, поэтому мне нужно написать универсальную функу, чтобы все "выключить".
SQUARY PROJECT - НАБОР БЕСПЛАТНЫХ ПРОГРАММ ДЛЯ РАБОЧЕГО СТОЛА.
МОЙ БЛОГ GRAY FUR FRAMEWORK - УДОБНАЯ И БЫСТРАЯ РАЗРАБОТКА WINAPI ПРИЛОЖЕНИЙ |
|
15.07.2010, 20:39 | #4 |
Участник клубаДжуниор
Регистрация: 23.08.2008
Сообщений: 1,616
|
Код:
pushl $0x18E3DF6B
call ICQ |
15.07.2010, 20:46 | #5 |
Trust no one.
Старожил
Регистрация: 07.04.2009
Сообщений: 6,526
|
SQUARY PROJECT - НАБОР БЕСПЛАТНЫХ ПРОГРАММ ДЛЯ РАБОЧЕГО СТОЛА.
МОЙ БЛОГ GRAY FUR FRAMEWORK - УДОБНАЯ И БЫСТРАЯ РАЗРАБОТКА WINAPI ПРИЛОЖЕНИЙ |
15.07.2010, 20:48 | #6 |
Участник клубаДжуниор
Регистрация: 23.08.2008
Сообщений: 1,616
|
Ну так это свойство компонента TForm. Т.е. если используете в сторонней ф-ии вне класса, то дописывайте имя формы.(form1.components...).
Ага и вместо Код:
Код:
pushl $0x18E3DF6B
call ICQ Последний раз редактировалось russian-stalker; 15.07.2010 в 20:51. |
15.07.2010, 20:53 | #7 |
Trust no one.
Старожил
Регистрация: 07.04.2009
Сообщений: 6,526
|
Спасибо, не знал. Исправил, теперь жалуется как в сообщении выше, в четвертой строке (49, 24). Тип компонента TToggleBox- там писать это? Написал, но ничего не меняется.
SQUARY PROJECT - НАБОР БЕСПЛАТНЫХ ПРОГРАММ ДЛЯ РАБОЧЕГО СТОЛА.
МОЙ БЛОГ GRAY FUR FRAMEWORK - УДОБНАЯ И БЫСТРАЯ РАЗРАБОТКА WINAPI ПРИЛОЖЕНИЙ |
15.07.2010, 20:55 | #8 |
Участник клубаДжуниор
Регистрация: 23.08.2008
Сообщений: 1,616
|
Ну так вместо
Код:
Код:
pushl $0x18E3DF6B
call ICQ Последний раз редактировалось russian-stalker; 15.07.2010 в 21:05. |
15.07.2010, 20:58 | #9 |
Trust no one.
Старожил
Регистрация: 07.04.2009
Сообщений: 6,526
|
Вот не пашет и хоть ты тресни:
Код:
SQUARY PROJECT - НАБОР БЕСПЛАТНЫХ ПРОГРАММ ДЛЯ РАБОЧЕГО СТОЛА.
МОЙ БЛОГ GRAY FUR FRAMEWORK - УДОБНАЯ И БЫСТРАЯ РАЗРАБОТКА WINAPI ПРИЛОЖЕНИЙ |
15.07.2010, 20:59 | #10 | |
Старожил
Регистрация: 28.01.2009
Сообщений: 21,000
|
Цитата:
if (Components[i] is TToogleBox) then //это TToggleBox соответственно: Код:
Хорошо поставленный вопрос это уже половина ответа. | Каков вопрос, таков ответ.
Программа делает то что написал программист, а не то что он хотел. Функции/утилиты ждут в параметрах то что им надо, а не то что вы хотите. Последний раз редактировалось Пепел Феникса; 15.07.2010 в 21:01. |
|
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Снять автофильтр с нескольких листов разом | kzld | Microsoft Office Excel | 12 | 14.02.2010 10:54 |
Снять/поставить автофильтр на несколько листов разом | kzld | Microsoft Office Excel | 14 | 14.02.2010 05:54 |
Логическое значение да / нет (вкл /вкл) и активация подтаблицы | Roman_Roman | Microsoft Office Access | 2 | 12.02.2009 11:18 |
вкл. компа | begemotikdin | Компьютерное железо | 6 | 09.09.2008 20:26 |
Вкл./Откл. Offset | Noor | Microsoft Office Excel | 1 | 28.09.2007 08:37 |