Überwachen von Objekteigenschaften

[mleyen]

Delphi-Quellcode:

/// Ganz oben
type
  TButton = class(StdCtrls.TButton)
    procedure SetEnabled(Value: Boolean); override;
  end;

/// ...
/// Die eigentliche Unit...
/// ...

/// Vor end. dann:
{ TButton }

procedure TButton.SetEnabled(Value: Boolean);
begin
  inherited;
  if Self.Name = 'btnMeinBtnDerEnabledWird' then
    MessageDlg('Debugpoint hier setzen. :)', mtInformation, [mbOK], 0);
end;

tadaa