Gemeinsame OnClick - Behandlung

[choose]

Zitat von himitsu:

OK, [...] allerdings habe ich da auch meistens noch Code, der nicht bei allen Typen vorhanden ist, und das läßt sich ja leider nicht auf so eine Weise einbinden.

Was hältst Du von einem Parameter, dem Du die auszusparenden bzw. zu verwendenen Klassen angibst?
SetPropIfPossibleAndIsInstanceOf(Sender, [TButton, TPanel], 'Width', 200); bzw
SetPropIfPossibleAndIsNotInstanceOf(Sender, [TEdit, TMemo], 'Visible', True); Vielleicht sollte man das wirklich einmal in einer Unit zusammenfassen