Neue Klasse (Nachkommen)

[Sir Rufo]

@baumina
Diese Nachricht wird schon von TControl empfangen.
Dort wird aber einfach nur TControl.Invalidate aufgerufen und die ist public und virtual .

Delphi-Quellcode:

  TMySpeedButton = class( TSpeedButton )
  private
    FOldEnabled : Boolean;
    FOnEnabledChanged : TNotifyEvent;
  public
    procedure Invalidate; override;
  published
    property OnEnabledChanged : TNotifyEvent read FOnEnabledChanged write FOnEnabledChanged;
  end;

{ TMySpeedButton }

procedure TMySpeedButton.Invalidate;
begin
  inherited;
  if FOldEnabled <> Enabled then
  begin
    FOldEnabled := Enabled;
    if Assigned( OnEnabledChanged ) then
      OnEnabledChanged( Self );
  end;
end;