Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Основная";
Текущий архив: 2007.02.25;
Скачать: [xml.tar.bz2];

Вниз

FindComponent и фрейм: как?   Найти похожие ветки 

 
Rembo   (2007-01-01 22:15) [0]

Вот код:
unit humanvshuman;
...
Thvh = class(TFrame)
...
for i := 1 to 13 do
 begin
   c:=hvh.FindComponent("korob"+inttostr(i));
   (c as tbitbtn).Caption:=inttostr(st[i]);
 end;
При попытке выполнения предлагает добавить в uses humanvshuman, после чего орет мне что я баран раз вызываю юнит из самого себя.
Вопрос: можно ли из фрейма искать компоненты в себе? Если да то КАК?


 
jack128 ©   (2007-01-02 00:58) [1]

Rembo   (01.01.07 22:15)
что такое

hvh в этом коде?
Rembo   (01.01.07 22:15)
c:=hvh.FindComponent("korob"+inttostr(i));


Rembo   (01.01.07 22:15)
Если да то КАК?

заменить hvh на Self


 
Rembo   (2007-01-02 17:13) [2]

hvh - класс потомок Tframe. Self не катит.
Еще раз задача более детально: есть форма, на ней есть фрейм, на фрейме кнопки (corob1..12). Надо чтоб при нажатии на одну из кнопок, caption всех 12-ти менялся. Желательно в цикле, а не corob1.caption:=""; corob2.caption:=""; и т.д...


 
Rembo   (2007-01-02 23:33) [3]

Все! Сам допер! hvh - это ничто! Класс называеться Thvh, а экземпляр который создаеться на форме - corframe. Значит:
for i := 1 to 13 do
begin
  c:=corframe.FindComponent("korob"+inttostr(i));
  (c as tbitbtn).Caption:=inttostr(st[i]);
end;



Страницы: 1 вся ветка

Форум: "Основная";
Текущий архив: 2007.02.25;
Скачать: [xml.tar.bz2];

Наверх





Память: 0.45 MB
Время: 0.041 c
6-1158428475
kernel
2006-09-16 21:41
2007.02.25
Console&Socket


11-1149954658
Фдуч
2006-06-10 19:50
2007.02.25
Помогите с PCAsm


15-1170412564
Kair+
2007-02-02 13:36
2007.02.25
Delphi глазами хакера - М. Фленов


2-1170667633
NewComerDS
2007-02-05 12:27
2007.02.25
Как узнать путь файла открытого(используемого) exeшником ?


2-1170758290
Lera
2007-02-06 13:38
2007.02.25
Отключение от сети





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский