Zitat von
freak4fun:
Zitat von
toms:
oder so:
Delphi-Quellcode:
if ActiveControl <> nil then
if ActiveControl is TRichEdit then
TRichEdit(ActiveControl)....
Das kannst du aber nicht in das ButtonClick-Ereignes schreiben, weil dann das ActiveControl auf dem Button steht.
MfG
freak
Die TToolButtons nehmen keinen Focus an. Darum besteht hier das Problem gar nicht.