Как вариант - обычный TImage с картинкой, при MouseDown - поменять картинку на нажатую кнопку, MouseUp - на отпущенную и выполнить действие. Если нужна именно нажимаемая картинка.
Еще может потребоваться чуть-чуть пошаманить с MouseLeave (или как-то так), чтобы если нажать на кнопку и увести мышку тоже отпускалось.
__________________
jmp $ ; Happy End!
The Cake Is A Lie.
|