Question

delphi实现，我在点击点击一个ToolButton时，当前ToolButton的caption加亮，谢谢！

Answer 1

TOOLBUTTON有个属性为allowUP,另外，把所有的BUTTON设为一个GROUP（不为0）
这样，点击后当前会按下去，其它的会弹上来。

Answer 2

你干嘛不用PageControl控件，自动加亮。既然是控件使用这个级别的问题，就不要费时费力改写ToolButton了。

Answer 3

控件的名称.font := clyellow

Answer 4

响应Onclick事件，编写代码 ToolButton.Font.Color := clYellow;