Danke, kling schon mal echt gut und dürfte für den Einzelfall das Mittel der Wahl sein.
Schön wäre es natürlich nun, wenn man nicht jede einzelne Eigenschaft für jede einzlen Klasse, die man überwachen möchte überschreiben müsste, sondern in der Art z.B. eines ExceptionHandlers einfach zu überwachende Eigenschaften auswählen könnte.
Kennt jemand dafür ein geeignetes Tooling/Expert/wizard?
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