[kaizer131]

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

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



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

Код:

1 2 3 4 5 6 7

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
если делаю так

Код:

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

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

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

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

Код:

1 2 3 4 5 6 7 8 9 10 11 12

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.