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

Вниз

Поиск кнопок во всем проекте.   Найти похожие ветки 

 
exciter__   (2003-11-01 13:16) [0]

Подскажите как сделать поиск всех, скажем, кнопок типа TButton во всём проекте d цикле? Форм много. и потом работать с ними? т.е. чтоб можно было менять свойства всех кнопок во всём проекте? При условии, что имена кнопок могли даваться от фонаря. Если можно, пример.


 
Palladin   (2003-11-01 13:26) [1]

Application
ComponentCount
Components[]
+рекурсия

ищи хоть до потери сознания


 
_none_   (2003-11-01 17:13) [2]

ну че-нить типа


for i := 0 to Application.ComponentCount - 1 do
begin
if (Application.Components[i] is TButton) then
...
end;


 
_none_   (2003-11-01 17:20) [3]

обшибся... на самом деле надо так:

for i := 0 to Screen.FormCount-1 do
begin
for j := 0 to Screen.Forms[i].ComponentCount - 1 do
begin
if (Screen.Forms[i].Components[j] is TButton) then
beep;
end;
end;


 
Palladin   (2003-11-02 13:46) [4]


> _none_ © (01.11.03 17:20) [3]

Ты обшибся еше раз...
я же не зря сказал про рекурсию


 
Anatoly Podgoretsky   (2003-11-02 14:36) [5]

Нет даже дважды, ты же не зря сказал про Application



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

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

Наверх




Память: 0.45 MB
Время: 0.038 c
14-41916
Butterfly
2003-10-21 11:59
2003.11.13
Задачка. Может, кто-нибудь знает ответ?


1-41282
uu
2003-10-31 13:50
2003.11.13
fastreport


7-42175
Anonimus
2003-08-29 18:45
2003.11.13
помогите разобраться с сом-портом


7-42173
hfa
2003-09-04 17:58
2003.11.13
Как узнать серийный номер харда....


7-42198
Programmers88
2003-08-18 15:37
2003.11.13
POWER и RESET





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