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

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

Вернуться   Форум программистов > Delphi программирование > Общие вопросы Delphi
Регистрация

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

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

Ответ
 
Опции темы Поиск в этой теме
Старый 22.03.2012, 15:35   #1
KORT
Вот я и
Форумчанин
 
Аватар для KORT
 
Регистрация: 07.04.2007
Сообщений: 501
По умолчанию Получение Заголовка предка объекта

Задачка: есть 9 groupbox. На каждом из них есть находятся объекты такие как labeledit, combobox, checkbox и label.
делаю вывод незаполненных полей. с labeledit все четко:
Код:
for i:=1 to 16 do
  if TLabeledEdit(FindComponent('LabeledEdit'+IntToStr(i))).Text = '' then
    begin
      Inc(KolError);
      StrError:=StrError+'"'+TLabeledEdit(FindComponent('LabeledEdit'+IntToStr(i))).EditLabel.Caption+'"'+#13;
     end;
Трудность: как получить Caption groupbox на котором находится неправильно заполненный LabeledEdit, т.е. нужно чтобы было следующее:
Изображения
Тип файла: jpg HELP.JPG (29.5 Кб, 28 просмотров)
Исходники программ - http:\\www.kort.3dn.ru

Последний раз редактировалось KORT; 22.03.2012 в 15:39.
KORT вне форума Ответить с цитированием
Старый 22.03.2012, 15:40   #2
Аватар
Старожил
 
Аватар для Аватар
 
Регистрация: 17.11.2010
Сообщений: 18,922
По умолчанию

Код:
if LabelEdit.Parent is TGroupBox then s:=TGroupBox(LabelEdit.Parent).Caption;
Если бы архитекторы строили здания так, как программисты пишут программы, то первый залетевший дятел разрушил бы цивилизацию
Аватар вне форума Ответить с цитированием
Старый 22.03.2012, 15:41   #3
KORT
Вот я и
Форумчанин
 
Аватар для KORT
 
Регистрация: 07.04.2007
Сообщений: 501
По умолчанию

Цитата:
Сообщение от Аватар Посмотреть сообщение
Код:
if LabelEdit.Parent is TGroupBox then s:=TGroupBox(LabelEdit.Parent).Caption;
Четко спс, лови лайк
Исходники программ - http:\\www.kort.3dn.ru

Последний раз редактировалось KORT; 22.03.2012 в 15:49.
KORT вне форума Ответить с цитированием
Ответ


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

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

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


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Получение заголовка окна, запущенного от имени другого пользователя на сервере терминалов ArtyAtWork Общие вопросы Delphi 3 06.10.2011 09:24
Блок в блоке,сохранение состояния предка temorfeouz HTML и CSS 4 30.09.2011 12:34
Как вызвать перекрытый метод из предка. shude Visual C++ 1 10.02.2011 19:22
Создание компонента-предка в Delphi amico Помощь студентам 7 14.11.2009 17:44
Создание своего класса, наследование от предка Krechet Общие вопросы Delphi 16 02.05.2009 16:15