TMyButton = class(TCustomControl)
private
fbtnADD : TBitBtn;
fbtnSAVE : TBitBtn;
fbtnCANCEL : TBitBtn;
// ...
function GetAddClick: TNotifyEvent;
procedure SetAddClick(anEvent: TNotifyEvent);
function GetSaveClick: TNotifyEvent;
procedure SetSaveClick(anEvent: TNotifyEvent);
function GetCancelClick: TNotifyEvent;
procedure SetCancelClick(anEvent: TNotifyEvent);
//...
published
property AddClick: TNotifyEvent read GetAddClick write SetAddClick;
property SaveClick: TNotifyEvent read GetSaveClick write SetSaveClick;
property CancelClick: TNotifyEvent read GetCancelClick write SetCancelClick;
end;