关于自创控件的问题请教

Question

我用数据库来创建几个ToxButton按钮,我想每当点击另一个按钮时，原来的那个按钮变回初始颜色，而刚点击的这个按钮变为另一种色难点在于：我无法定位之前那个按钮的属性值。比如Name or Caption

Answer 1

定义一个全局变量,在控件的Onexit事件中书代码将其name等属性值写到这个变量中,则在另一按钮的onclick事件中就可以知道了(读取这个全局变量的值)

Answer 2

好象直接在Onexit写不是更简单；

Answer 3

全局变量
var LastOxButton: TOxButton = nil;TOxButton的OnClick
  if Assigned(LastOxButton) then LastOxButton.Color := ...;
  (Sender as TOxButton).Color := ...;
  LastOxButton := Sender as TOxButton;或者 TOxButton.Click过程中
  if Assigned(LastOxButton) then LastOxButton.Color := ...;
  Self.Color := ...;
  LastOxButton := Self;