运行时组件及其方法的实现

例如，程序中需要一个图片阵列，在单击某个图片时，该图片变得透明。

一、运行时组件的声明、构造和初始化

先声明一个组件数组：
var
ImgBack:array [0..4,0..4] og Timage;

构造对象实例，初始化各属性。

for i:=0 to 4 do
  for j:=0 to 4 do
     begin
         ImgBack[i,j]:=Timage.create(self);
         with ImgBack[i,j] do
             top:=i*80+20;
             left:=j*80+20;
             parent:=form1;
            picture.loadfromfile(pic/jfm.jpg); //载入图片
             onClick:=imgBackClick; //指定单击事件的方法
            ...
         end;
     end:

二、运行时组件方法的实现

声明方法：
procedure imgBackClick(sender:Tobject);

方法定义：

procedure Tform1.imgBackClick(sender:Tobject);
begin
    if sender is Timage  then
       Timage(sender).visible:=false //透明
    else
        showmessage('不是一个Timage组件');
end;