2 mal Einspruch
Zitat:
(Wenn es knallt, ist er/sie halt selber Schuld)
Eben - das merkt man leider vielen Programmen an. Mal eben nach nem halben Jahr ne Änderung eingebaut und ...
Da ist für mich der Unterschied zwischen "rumcoden" und programmieren
Zitat:
[...]ist mit TControl(Sender).Caption nichts mehr los.
Deswegen habe ich kleinsten gemeinsamen Nenner geschrieben <g>
Mit dem man (TControl/TwinControl) im übrigen schon ne ganze Menge reissen kann.
Mit Caption get es übrigens auch - zumindest wenn man zugegebenermassen etwas unsauber
in den protected Bereich einbricht
Delphi-Quellcode:
type
TControlCracker = class(TControl);
procedure TForm1.Button1Click(Sender: TObject);
begin
if Sender is TControl then
TControlCracker(Sender).Caption := 'Geht nich - gibbs nich'
else
ShowMessage(sender.Classname);
end;
Bernd