Как считать (в мемо или еще куда) все элементы коорые лежат на форме, ВКЛЮЧАЯ те, что находятся на панеляхю

Пробую делать что-то вроде:

Код

begin for i:=0 to controlcount-1 do   begin   if Controls[i] is TPanel then   begin   memo1.Lines.Add(controls[i].name);   end; end;

Какие есть варианты?

Это сообщение отредактировал(а) Alex - 10.5.2005, 18:30

Код

var   i: Integer; begin   for i := 0 To Form1.ComponentCount-1 do     Memo1.Lines.Add(Form1.Components[i].Name);

Тебе нужно что то типа этого?

Цитата(Yanis @ 10.5.2005, 16:52)

Тебе нужно что то типа этого?

Типа этого у меня есть.
Мне нужно к этому учесть еще элементы находящиеся на панелях (описанные способы не дадут нужного результата)
С этой целью я проверяю класс объекта,если это панель, то как считать с нее именая объектов? + Самое главное - как учетсть, что уровней (слоев панелей может быть много?)

Цитата(Guest @ 10.5.2005, 21:15)

Типа этого у меня есть. Мне нужно к этому учесть еще элементы находящиеся на панелях (описанные способы не дадут нужного результата) С этой целью я проверяю класс объекта,если это панель, то как считать с нее именая объектов? + Самое главное - как учетсть, что уровней (слоев панелей может быть много?)

Я всё равно не понял. Код который я привёл перебирает ВСЕ компоненты в том числе и те которые находятся на панелях. Или же объясни нормально, что тебе нужно.

ДА, Ты прав. Спасибо.

Интересно, что если не прописываешь form1, то выводит все кроме содержания панелей.

Лопну от счастья если подскажешь, как можно считать объекты со всех форм (с записью в начале строки имени формы)
Хочу сделать многоязычность.

Ты имеешь ввиду список всех компонентов всех форм проекта?

Код

var   i, j: Integer; begin   Memo1.Clear;   for i := 0 to Screen.FormCount-1 do     for j := 0 to Screen.Forms[i].ComponentCount-1 do       Memo1.Lines.Add(Screen.Forms[i].Name+'.'+Screen.Forms[i].Components[j].Name);

Это?

По всей вероятности - да.

Большое спасибо!

Код

function GetApplicationControlsName: TStrings;   function DoGetNames(AWinControl: TWinControl): TStrings;   var     i: Integer;   begin     Result := TStringList.Create;     if Assigned(AWinControl) then     begin       Result.Add(AWinControl.ClassName + ' - ' + AWinControl.Name);       for i := 0 to AWinControl.ControlCount - 1 do         if AWinControl.Controls[i] is TWinControl then           Result.AddStrings(DoGetNames(TWinControl(AWinControl.Controls[i])))         else       Result.Add(AWinControl.Controls[i].ClassName + ' - ' +         AWinControl.Controls[i].Name);     end;   end; var   i: Integer; begin   Result := TStringList.Create;   for i := 0 to Pred(Screen.FormCount) do     Result.AddStrings(DoGetNames(Screen.Forms[i])); end;

но формы не включенные в проект не будут включены.

Признаюсь, Сразу не разберешься.

Цитата(Rennigth @ 11.5.2005, 09:24)

но формы не включенные в проект не будут включены.

Мой код:

Код

var   i, j: Integer; begin   Memo1.Clear;   for i := 0 to Screen.FormCount-1 do   begin     Memo2.Lines.Add('['+Screen.Forms[i].Name+']');     for j := 0 to Screen.Forms[i].ComponentCount-1 do     try       Memo1.Lines.Add(Screen.Forms[i].Name+'.'+Screen.Forms[i].Components[j].Name+'.Caption:='+****);       Memo1.Lines.Add(Screen.Forms[i].Name+'.'+Screen.Forms[i].Components[j].Name+'.Hint:='+****);       Memo2.Lines.Add(Screen.Forms[i].Components[j].Name+' Caption='+****);       Memo2.Lines.Add(Screen.Forms[i].Components[j].Name+' Hint='+****);     finally     end;   end;

Результат - что-то вроде:
memo2
[Form1]
Label6 Caption=
Label6 Hint=
Label4 Caption=
Label4 Hint=
и
memo1
Form1.Label6.Caption:=
Form1.Label6.Hint:=
Form1.Label4.Caption:=
Form1.Label4.Hint:=

Собственно нужно мне это для создания ini (прототип memo1) и DLL (memo2) файлы для многоязычности.
ini - хранит, DLL - подключает

В связи с этим еще вопросы:

1. Как Дописать в мемо соответственно caption и hint уже сприсутствующие на форме (названные по ходу размещения объектов)? Что поставить вместо **** ?
2. Если не сложно, объясните как лучше включить DLL в проект и сократить используемые ресурсы (чтобы при загрузке определенной формы именовались не все объекты всех форм, а только объекты подгружаемой формы)? Может что-то вроде;

Код

with 'подключаемая форма' do begin  Form1.Label6.Caption:=  Form1.Label6.Hint:=  Form1.Label4.Caption:=  Form1.Label4.Hint:=  Form2.Label1.Hint:=(К сожалению тоже сделает) end;

Это сообщение отредактировал(а) Girder - 11.5.2005, 13:52

Модератор: Пожалуйста, один топик - один вопрос. Тема закрыта!