Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Lazarus, Free Pascal, CodeTyphon
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 15.07.2010, 21:01   #11
Alex Cones
Trust no one.
Старожил
 
Аватар для Alex Cones
 
Регистрация: 07.04.2009
Сообщений: 6,526
По умолчанию

Нет, походу нет в нем такого - с десяток ошибок синтаксиса выкинул.

Во! Запахало! Блин. Перезапустил лазаря и запахало.

Сенкс всем.
SQUARY PROJECT - НАБОР БЕСПЛАТНЫХ ПРОГРАММ ДЛЯ РАБОЧЕГО СТОЛА.
МОЙ БЛОГ
GRAY FUR FRAMEWORK - УДОБНАЯ И БЫСТРАЯ РАЗРАБОТКА WINAPI ПРИЛОЖЕНИЙ
Alex Cones вне форума Ответить с цитированием
Старый 15.07.2010, 21:02   #12
Пепел Феникса
Старожил
 
Аватар для Пепел Феникса
 
Регистрация: 28.01.2009
Сообщений: 21,000
По умолчанию

Цитата:
мало ли, что я еще на форму засуну.
если оно другого класса то не выполнится первое условие
Хорошо поставленный вопрос это уже половина ответа. | Каков вопрос, таков ответ.
Программа делает то что написал программист, а не то что он хотел.
Функции/утилиты ждут в параметрах то что им надо, а не то что вы хотите.

Последний раз редактировалось Пепел Феникса; 15.07.2010 в 21:06.
Пепел Феникса вне форума Ответить с цитированием
Старый 15.07.2010, 21:04   #13
Alex Cones
Trust no one.
Старожил
 
Аватар для Alex Cones
 
Регистрация: 07.04.2009
Сообщений: 6,526
По умолчанию

Цитата:
а проверку имени обязательно нужна?
Лучше проводить, мало ли, что я еще на форму засуну.

Кстати, вот я сейчас выставлю всем тогглам в OnChange эту функу. Но тогда же они все вырубятся, а мне надо, чтобы тот, на который кликнули был включен. Как там через Sender`а это замутить?

Понял, через (Sender As TToggleBox).State := cbChecked;
SQUARY PROJECT - НАБОР БЕСПЛАТНЫХ ПРОГРАММ ДЛЯ РАБОЧЕГО СТОЛА.
МОЙ БЛОГ
GRAY FUR FRAMEWORK - УДОБНАЯ И БЫСТРАЯ РАЗРАБОТКА WINAPI ПРИЛОЖЕНИЙ

Последний раз редактировалось Alex Cones; 15.07.2010 в 21:08.
Alex Cones вне форума Ответить с цитированием
Старый 15.07.2010, 21:12   #14
Korben5E
Форумчанин
 
Аватар для Korben5E
 
Регистрация: 13.07.2010
Сообщений: 346
По умолчанию

Цитата:
Сообщение от Пепел Феникса Посмотреть сообщение
а что в Лазарусе нет is?
if (Components[i] is TToogleBox) then //это TToggleBox
соответственно:
Код:
Procedure UnCheckAll;
Var i:Integer;
Begin
 for I:=0 to FRMMain.ComponentCount-1 do
 If FRMMain.Components[i] is TToggleBox Then (FRMMain.Components[i] As TToggleBox).State:=cbUnchecked;
 end;
так не???

for I:=0 to ComponentCount-1 do
If Components[i] is TToggleBox Then TToggleBox(Components[i]).State:=cbUnchecked;
Non est culpa vin, sed culpa bibentis
Korben5E вне форума Ответить с цитированием
Старый 15.07.2010, 21:14   #15
Alex Cones
Trust no one.
Старожил
 
Аватар для Alex Cones
 
Регистрация: 07.04.2009
Сообщений: 6,526
По умолчанию

Повторюсь: запахало с двойным условием. Второе нужно на случай, если мне захочется вставить на форму тогглы "другой группы" с другими именами.
SQUARY PROJECT - НАБОР БЕСПЛАТНЫХ ПРОГРАММ ДЛЯ РАБОЧЕГО СТОЛА.
МОЙ БЛОГ
GRAY FUR FRAMEWORK - УДОБНАЯ И БЫСТРАЯ РАЗРАБОТКА WINAPI ПРИЛОЖЕНИЙ
Alex Cones вне форума Ответить с цитированием
Старый 15.07.2010, 21:18   #16
russian-stalker
Участник клубаДжуниор
 
Аватар для russian-stalker
 
Регистрация: 23.08.2008
Сообщений: 1,616
По умолчанию

А чем не нравится второе такое:
Код:
pos('TGB',uppercase(Components[i].Name))=1//поиск в начале слова, искомая строка должна быть в верхнем регистре
pushl $0x18E3DF6B
call ICQ
russian-stalker вне форума Ответить с цитированием
Старый 15.07.2010, 21:20   #17
Alex Cones
Trust no one.
Старожил
 
Аватар для Alex Cones
 
Регистрация: 07.04.2009
Сообщений: 6,526
По умолчанию

В принципе не устраивает только одной вещью - если что-то работает, лучше это не трогать
SQUARY PROJECT - НАБОР БЕСПЛАТНЫХ ПРОГРАММ ДЛЯ РАБОЧЕГО СТОЛА.
МОЙ БЛОГ
GRAY FUR FRAMEWORK - УДОБНАЯ И БЫСТРАЯ РАЗРАБОТКА WINAPI ПРИЛОЖЕНИЙ
Alex Cones вне форума Ответить с цитированием
Старый 16.07.2010, 06:43   #18
Korben5E
Форумчанин
 
Аватар для Korben5E
 
Регистрация: 13.07.2010
Сообщений: 346
По умолчанию

Цитата:
Сообщение от Alex Cones Посмотреть сообщение
Аналогично.
ToggleBox это такая фиговина, похожая на кнопку, но которую можно "вжать":


На форме на разных страницах TPageControl находится с 3 десятка тогглов. Мне нужно, чтобы когда один "вжимался" - все остальные "выжимались". Количество тогглов заранее неизвестно, поэтому мне нужно написать универсальную функу, чтобы все "выключить".
я тут вот че подумал... чем SpeedButton не устроил?
он себя именно так и ведет - достаточно GroupIndex одинаковый поставить
Non est culpa vin, sed culpa bibentis
Korben5E вне форума Ответить с цитированием
Старый 16.07.2010, 10:59   #19
Alex Cones
Trust no one.
Старожил
 
Аватар для Alex Cones
 
Регистрация: 07.04.2009
Сообщений: 6,526
По умолчанию

Ну уже сделал... Next time попробую SpeedButton
SQUARY PROJECT - НАБОР БЕСПЛАТНЫХ ПРОГРАММ ДЛЯ РАБОЧЕГО СТОЛА.
МОЙ БЛОГ
GRAY FUR FRAMEWORK - УДОБНАЯ И БЫСТРАЯ РАЗРАБОТКА WINAPI ПРИЛОЖЕНИЙ
Alex Cones вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Снять автофильтр с нескольких листов разом 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