控件的事件编写的问题

[emao_mhw]

我现在自己写一个控件，这个控件从TComponent 中继承出来，同时该控件完成很多TImage组合的问题，我现在要把TImage的OnClick事件可以在控件属性中显示不来，并且
可用怎么办，多个Image 公用一个事件就行啦，给为高手请执教

[taxi]

当建立TImage对象的时候给OnClick事件赋值即可。
Image1.OnClick := ImageClick;


ImageClick是一个自定义过程；
procedure ImageClick(Sender: TObject);

[windofsun]

TImageMag = class(TComponent)
private
FOnClick: TNotifyEvent;
FImage1: TImage;
FImage2: TImage;
// ...

procedure SetOnClick(const Value: TNotifyEvent);
public
// ...
property OnClick: TNotifyEvent read FOnClick write SetOnClick;
end;

// ...

procedure TImageMag.SetOnClick(const Value: TNotifyEvent);
begin
FOnClick := Value;
FImage1.OnClick := FOnClick;
FImage2.OnClick := FOnClick;
// ...
end;

[xdf_hubei]

同意楼上

[trainbox]

同意楼上

[oracle_lover]

procedure ImageClick(Sender: TObject);
begin
showMessage(TImage(sender).name+' was clicked');
end; //所有image 的通用函数，但不同的image 被点击结果不一样

体会一下sender 的用法