🚀 go-pugleaf

"MeCeX" <admin@mehmetcelik.com> wrote:

>i create a new button component but i want to change onclick event
>
>TIButton = class(TButton)
>  private
>    FOnClick: string;
>    procedure ButtonClick(Sender: TObject);
>  public
>    constructor Create(AOwner: TComponent); override;
>  published
>    property OnClickEvent: string read FOnClick write FOnClick;
>    { want to change it to below code }
>    {property OnClick: string read FOnClick write FOnClick;}
>  end;
>
>constructor TIButton.Create(AOwner: TComponent);
>begin
>  inherited Create(AOwner);
>  FOnClick := '';
>  OnClick := ButtonClick; // when changed, i want this code works for
>ancestors button's onclick
>end;
>
>procedure TIButton.ButtonClick(Sender: TObject);
>begin
>  if FOnClick <> '' then
>    // ...
>end;
>
>how can i change ibutton's onclick event ? Is there a way ?

I'm not quite sure what you want to do here. It appears that you don't
want to allow the standard OnClick property to be used by the form
with your button on it, and want to define a new property with that
same name, but a completely different type (string vs. TNotifyEvent).

It would probably be better to declare a string property with a
different name, and then overide the Click method of TButton. In that
method you can handle a click, either by calling the inherited method
or not.

If that doesn't help, please describe what you want to do more
explicitly.

Good luck.

Kurt