控制toolbutton的状态

procedure TForm1.ToolButton1Click(Sender: TObject);
begin
  // TToolButton(Sender).Down := not odd(TToolButton(Sender).Tag);
  // TToolButton(Sender).Tag := TToolButton(Sender).Tag + 1;
  TToolButton(Sender).Down := not Boolean(TToolButton(Sender).Tag);
  TToolButton(Sender).Tag := Integer(TToolButton(Sender).Down);
end;
注释的两行是网友写的代码，存在着溢出隐患，所以自己改写成下面的两行了。