Обратиться из функции к определенной форме и определенному компоненту.

[ros.pro]

Доброго времени суток!
Есть такая проблема.
На форме есть несколько timage в которые надо подгрузить картинки. Теоретически, они могут в дальнейшем могут находиться на разных формах.

Пишу универсальную процедуру для обращения к нужной форме, к нужному Timage, все это пишется в отдельном юните для процедур

Т.е. примерно так:

procedure loadImg(formName:TForm; imageName: Timage);
begin
   formName.imageName.Picture.LoadFromFile:='C:\123.bmp'; //ругается вот на эту строку, 
   //а именно на imageName, говорит неизвестный компонент. На formName не ругается...
end;

Помогите плиз, советом! Заранее спасибо за помощь!

[Valio]

Можно при вызове передать:

* := Sender As TControl;

А в функции проверить что это:

If (*.ClassNameIs('TForm')) Then

[evg_m]

imageName: Timage
если это имя компонента типа Timage то тогда это string
imageName: string
и тогда его надо будет ИСКАТЬ на указанной форме.

r:=formName.Findcomponent(imagename);
if r<>nil // iдальше проверять нашили или нет 
 then if r is Timage // это точно image
   then r as Timage.Load('C:\123.bmp'); А что грузить будешь всегда одну и ту же

картинку.
А если еще formName то же имя формы.
то это тогда тоже string
и тогда ее тоже надо будет искать.
все созданные формы собраны в Screen.forms

[ros.pro]

Спасибо за помощь! Сделал вот так:

(formName.FindComponent(drawName) as TDXDraw).Left:=50;

Только от timage избавился =)