用as进行类型转换

在多个组件通用的过程中，需先将sender由Tobject 转换为相应类后，才能访问组件的属性和方法。

例如:

 

procedure Tform1.ImgClick(sender:Tobject);

begin
(sender as Timage).visible:=false;
end;

在单击image组件时,使其透明 。

另一种类型转换的方法如下：

Timage(sender).visible:=false;