Ну и? Это работает для любого Image, не зависимо от того, на какой форме он лежит. только можно процку сделать глобальной или методом класса.
Код:
unit ImageLoader;
interface
uses ...
procedure LoadAva(ImageName : String; Image : TImage);
implementation
procedure LoadAva(ImageName : String; Image : TImage);
begin
if FileExists(Serverdir+imageName+'.bmp') then
Image.Picture.LoadFromFile(Serverdir+imageName+'.bmp')
else if FileExists(Serverdir+'DefaultAvatar.bmp') then
Image.LoadFromFile(Serverdir+'DefaultAvatar.bmp');
end;
end.
И использование соотв.:
Код:
LoadAva('file1.bmp',Form1.Image1);
LoadAva('file2.bmp',Form2.Image1);
LoadAva('file3.bmp',Form2.Image2);
...
ЗЫ. Это просто как вариант.
Еще можно сделать базовую форму с нужным методом, а потом все формы , которые должны иметь такой функционал, наследовать от этой формы...