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

Вниз

Перебрать все компоненты на всех формах в проекте   Найти похожие ветки 

 
Прохожев   (2008-06-06 08:15) [0]

Подкиньте плиз код или подскажите как лучше искать в гугле . Спасибо.


 
Прохожев   (2008-06-06 08:29) [1]

Удалено модератором
Примечание: Создание пустых сообщений


 
{RASkov} ©   (2008-06-06 08:37) [2]

Screen.Forms, ComponentCount, Components[]


 
Рамиль ©   (2008-06-06 08:39) [3]

TScreen.Forms
TForm.Components


 
Anatoly Podgoretsky ©   (2008-06-06 08:47) [4]

> Прохожев  (06.06.2008 8:15:00)  [0]

Что значит на всех формах?


 
Прохожев   (2008-06-06 08:57) [5]


> Что значит на всех формах?


Все вормы в прямом смысле. Т.е Form1, Form2, Form3 и т.п.
На каждой форме есть компоненты к которым нужно обратиться одним махом.

Кажись

TScreen.Forms
TForm.Components

то, что надо ...


 
Anatoly Podgoretsky ©   (2008-06-06 09:08) [6]

> Прохожев  (06.06.2008 8:57:05)  [5]

Это не все формы


 
Юрий Зотов ©   (2008-06-06 09:56) [7]

> Прохожев   (06.06.08 08:57)

Если формы создавались с владельцем Application - т.е. через Application.CreateForm(...) или через TForm.Create(Application) - то ВСЕ такие формы будут в списке Application.Components.

for i := 0 to Application.ComponentCount - 1 do
 if Application.Components[i] is TForm then
   with TForm(Application.Components[i]) do
     for j := 0 to ComponentCount -1 do
     begin
       // Работаем с Components[i]
     end;


 
Юрий Зотов ©   (2008-06-06 09:58) [8]

Поправка - работаем с Components[j]


 
Прохожев   (2008-06-06 12:30) [9]


> Юрий Зотов ©   (06.06.08 09:56) [7]


Отлично, спасибо ...



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

Текущий архив: 2008.07.06;
Скачать: CL | DM;

Наверх




Память: 0.48 MB
Время: 0.018 c
2-1212513330
leonidus
2008-06-03 21:15
2008.07.06
Почему растет размер базы при обновлении Blob-поля?


15-1211353071
идфсльфт
2008-05-21 10:57
2008.07.06
Ну и где же эти глубины?


15-1211464189
БарЛог
2008-05-22 17:49
2008.07.06
Почтовый вервер не отправляет "во вне" :(


3-1201519088
ganda
2008-01-28 14:18
2008.07.06
Table is busy


6-1189799328
sniknik
2007-09-14 23:48
2008.07.06
Глюк компонента TIdUDPServer в 10м Indy? Проверьте ктонибудь.