[kaizer131]

Доброго времени суток уважаемые форумчане!

А можно для компонентов Timage, создаваемых в runtime назначить процедуру загрузки изображений из ресурсов в зависимости от их tag? Я создаю несколько обьектов TImage,



отдельно написал процедуру

Код:

procedure loadimage(Sender:TObject);
  begin
    case a.Tag of
    1:a.Picture.Bitmap.LoadFromResourceName(HInstance,'a');
    2:a.Picture.Bitmap.LoadFromResourceName(HInstance,'b');
    end;
  end;

Но пока незнаю как её назначить им .

[Страдалецъ]

А почему бы и нет. Сохраните ресурс с нужным вам имененем, и вперед.

[kaizer131]

проблема в том что незнаю как точно назначить написанную мною процедуру cоздаваемым в run time обьектов TImage
если делаю так

Код:

a.Create:=loadimagehiragaha(Sender: TObject);

то выдаёт ошибку

[Страдалецъ]

Вы можете воспользоваться такой фишкой - хэлпер.
Выглядит это так:

Код:

Type
TMyImage = class helper for TImage
   constructor Create(AOwner: TComponent);
end;

...

constructor TMyImage.Create(AOwner: TComponent);
begin
 inherited Create(AOwner);
 Tag := 1;
end;

Тогда при создании в рантайме TImage будет автоматом вызван конструктор от TMyImage.