利用Speedbutton的down屬性設計類似checked功能

[Question]

在Delphi中，我拉了一個Speedbutton，並且放了圖案在上面，該如何設計成按一下按鈕就會陷下去，再按一下會彈回來呢？好像無法改變down屬性！




[Solution]
SpeedButton.GroupIndex > 1 , SpeedButton.Down才有作用 (按鈕會陷下去)
SpeedButton.AllowAllUP := True, SpeedButton.Down Auto False (再按一下, 按鈕才會彈起來)