Zitat von
haentschman:
.. Das bedeutet... Viel Spaß
In der Tat : ist ein leichtes. Schätze mal 2 Min. Aufwand. AAAAber
: das setzt vorraus, dass auch auf Form Ebene
OOP eingesetzt wird. Man baut sich das Protokollierungs-OnClick zusammen für die Grundform und vererbt davon einfach weiter. Oder nur eine Form ? Grundsätzlich würde es jedenfallse so gehen :
Delphi-Quellcode:
for i := 0 to ComponentCount - 1 do begin
c := Components [i];
if c is TButton then begin
showmessage ((c as TButton).name);
if c is TEdit then begin
showmessage ((c as TEdit).name+' '+(c as TEdit).Text);
// statt Showmessage natürlich OnClick, OnChange etc. entsprechend zuweisen.