Вызов процедуры

[igbizon]

Вопрос такой.
Есть на форме некая кнопка и создан обработчик ее нажатия.
также имеется процедура:
...
procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
if (ssCtrl in Shift) and (chr(Key) in ['A', 'a']) then
как мне при выполнении условия этого сделать так что бы запустился обработчик выполняющий нажатие на кнопку?

[puporev]

А почему обработчик события нельзя переписать в этой процедуре, для чего кнопка?

[igbizon]

А в принципе потому что пользователи у нас глуповатые и сочетание клавиш для некоторых сродни изучению высшей математики, поэтому кнопка им нужна

[Serge_Bliznykov]

вообще, то, что Вы пытаетесь выдумать уже выдумано до Вас и называется Actions (смотри ActionList )

ну, если Вам Ваш вариант нравится больше - ну и вызывайте тот код, который назначен на нажатие кнопки, например:

procedure TForm1.Button1Click(Sender: TObject);
begin
 // код на кнопке
end;
...
procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
  if (ssCtrl in Shift) and (chr(Key) in ['A', 'a']) then
      Button1Click(Button1)
...

[igbizon]

Спасибо вам, но я немного по дургому
...then
bubutton1.click......
Но все равно Вам спасибо.

[puporev]

Можно еще два варианта, если все же нужно нажимать на кнопку.
1. Делаем кнопку недоступной, в Инспекторе выставляем свойство кнопки Enabled=false.
Пишем
if (ssCtrl in Shift) and (chr(Key) in ['A', 'a']) then
button1.Enabled:=true;
и жмем на кнопку
2. Делаем кнопку невидимой. В Инспекторе выставляем свойство кнопки Visible=false.
Пишем
if (ssCtrl in Shift) and (chr(Key) in ['A', 'a']) then
button1.visible:=true;
и жмем на кнопку