Управление динамическими объектами по Handle

[SibBear]

В процессе выполнения создается 20 элементов, их Handle записываю в массив.
Как теперь добраться до свойства этого объекта зная только его handle? и изменить.

[Stilet]

FindControl function тебе в помошь

p.s. Не связывался бы ты с такой методикой...

[SibBear]

Решил все сделать через массивы и все...

[CahekG]

Примерно можно так
Напроимер найти все кнопки по хандлам и поменять у них какое-либо свойство

procedure TForm1.Button1Click(Sender: TObject);
var j,i:integer;
H:array of HDC;
begin
 SetLength(H,Form1.ComponentCount);
 j:=0;
 for i:=0 to pred(Form1.ComponentCount) do
  if (Form1.Components[i]  is TWincontrol) then
   begin
    H[j]:=((Components[i] as TWinControl).Handle);
    inc(j);
   end;

 for i:=0 to pred(j) do
  if (FindControl(h[i])  is TButton) then
   with (FindControl(h[i]) as TButton) do
    begin
     Caption:='Кнопка '+inttostr(Random(100));
     OnClick:=Button1Click;
     ShowHint:=True;
     Hint:='Это подсказка';
    end;

end;