Hey genial. Bin grad durch rumtesten draufgekommen:
Delphi-Quellcode:
TButton2 = class(TButton);
TButton = class(TButton2)
published
procedure alert;
end;
und schon ist TButton eine Methode hinzugefügt. Habe es ausgetestet mit einer Form, darauf im
OI Designer einen TButton draufplatziert und dann bei on Click Button1.alert aufgerufen und es hat funktioniert
Zwar nicht sehr elegant und irgendwie etwas komisch, aber es funktioniert!!!
Edit: Einrückung augebessert
Edit2: OI ist etwas falsch