Форум: "Начинающим";
Текущий архив: 2008.07.06;
Скачать: [xml.tar.bz2];
Вниз
Перебрать все компоненты на всех формах в проекте Найти похожие ветки
← →
Прохожев (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;
Скачать: [xml.tar.bz2];
Память: 0.46 MB
Время: 0.04 c
