Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2007.02.25;
Скачать: CL | DM;

Вниз

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;
Скачать: CL | DM;

Наверх




Память: 0.44 MB
Время: 0.046 c
15-1170238103
Torry
2007-01-31 13:08
2007.02.25
User Interface


15-1170252125
Sergey13
2007-01-31 17:02
2007.02.25
Участников интернет-форума судят "за оскорбления властей"


15-1170110927
SkyRanger
2007-01-30 01:48
2007.02.25
Соло на скасофоне


3-1165249048
DelphiLexx
2006-12-04 19:17
2007.02.25
Проблема с интерфейсов OK и Отмена, Commit и Rollback


15-1170402887
Сатир
2007-02-02 10:54
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
Английский Французский Немецкий Итальянский Португальский Русский Испанский