Эффект нажатия

[SeregaIRK]

Привет всем !
Подскажите как сделать чтоб при событий OnKeyDown Буттон отпутсился и поднялся как при обычном нажатии на мышку : нажимаешь - отпускается ,отпускаешь - на исходную !
Прошу не писать как выполнить саму процедуру нажатия типа
If key=13 then Button1.Click
Нужно именно сделать "Эффект нажатия".

[puporev]

Вместо того, чтобы дублировать темы, вопрос задавай по человечески, смотри в созданную тему и не хами.

[_SERGEYX_]

Нужно взять кнопку, у которой есть свойство Down. (например, SpeedButton).
Устанавливаем:
SpeedButton1.AllowAllUp:=True;

ну, и далее:
При KeyDown чего-то там
SpeedButton1.Down:=True;

При KeyUp
SpeedButton1.Down:=False;