Delphi Получение списка "основных" свойств компонента

[McFrey]

Доброго времени суток уважаемые программисты.
Есть некая проблема...На форме находится TListBox и TМemo. В TListBox есть несколько строк с именами компонентов
(for example: button
label
edit)
Выбрав какой-то из этих компонентов в TМemo должны отобразиться его основные свойства (например имя, положение х,у).

Как получить список тех свойств которые меня интересуют?
На просторах интернета нашел такой код:

uses
  TypInfo;

procedure TForm1.FormCreate(Sender: TObject);
var
  PropList: PPropList;
  i: integer;
begin
  PropList := AllocMem(SizeOf(PropList^));
  i := 0;
  try
    GetPropList(TForm.ClassInfo, tkProperties + [tkMethod], PropList);
    while (PropList^[i] <> nil) and (i < High(PropList^)) do
    begin
      ListBox1.Items.Add(PropList^[i].Name + ': ' +
        PropList^[i].PropType^.Name);
      Inc(i);
    end;
  finally
    FreeMem(PropList);
  end;
end;

Но он, по моему выводит все свойства компонента. Как вот привязать элемент из списка с реально существующим компонентом в делфи, и вывести несколько его свойств?

[Stilet]

Как получить список тех свойств которые меня интересуют?

Отсекать по именам:

if pos(PropList^[i].Name,'Left Top Width и так далее список нужных')<>0 then 
       ListBox1.Items.Add(PropList^[i].Name + ': ' +
        PropList^[i].PropType^.Name);

[McFrey]

Stilet, да, большое спасибо, это действительно помогло))
А вот как связать реальный компонент с именем в TListBox - загадка, и выше приведенный код выводит сейчас не конкретные значения, а просто тип, который имеют св-ва компонента...это возможно исправить?

[Stilet]

это возможно исправить?

Я с этим модулем никогда не работал, так что брехать не хочу )

[McFrey]

Ну а средствами другого модуля это реально реализовать? мне способ то не важен, важно научиться, ну и сделать чтоб работало)

[Stilet]

Я не в курсе, задачи такой никогда не ставил )
Очень мало про RTTI знаю.

[McFrey]

Stilet, спасибо и на этом, с именами помогли!! Если накопаю чего выложу мало-ли кому пригодиться)....

А так вдруг знающие люди сюда случайно заглянут? Вопрос остается открытым Оо....

[evg_m]

А вот как связать реальный компонент с именем в TListBox

1. получение списка компонентов, принадлежащих объекту xxx

Listbox1.Clear;
for j:=0 to xxx.componentscount-1 do 
  { if xxx.components[j] is Tcontrol then }//если нужны только наследники Tcontrol 
  listbox1.add(xxx.components[j].name, xxx.components[j]);

2. //определение объекта связанного с данной строкой

j:=listbox1.selectedindex;
if listbox1.items.objects[j] is Tcontrol then begin
  r:=listbox1.items{?strings?}.objects[j] as Tcontrol; 
  memo1.clear;
  memo1.lines.add(r.classname);
  memo1.lines.add(r.name);
  memo1.lines.add(inttostr(r.left));
  memo1.lines.add(inttostr(r.top));
  memo1.lines.add(inttostr(r.width));
  memo1.lines.add(inttostr(r.height));
end;

[McFrey]

evg_m, толи вечер уже, толи я туплю неимоверно

for j:=0 to xxx.componentscount-1 do

xxx это какая-то строка из Tlistbox? т.е. в ххх мы записываем то что пользователь выбрал из списка?

[Stilet]

evg_m

А если нужно определить свойства любого обьекта? Не только контрола.