что нужно сделать, чтобы при нажатии кнопки запускалась процедура

[mager]

Привет всем, помогите ответить на вопрос, желательно исходник. Суть проста: допустим при нажать кнопки на клаве "m", выподало сообщение, допустим "привет" (при помощи ShowMessage).
Заранее спасибо.
>>Примечание<<Не ругайтесь, если это очень просто, я Delphi всего неделю изучаю! Поэтому помогите простому челу.

[zetrix]

а форма должна быть, или просто рабочий стол пустой (твоей программы не видно) и она работает?

[Alar]

procedure TForm1.FormKeyPress(Sender: TObject; var Key: Char);
begin
if (key='m')or(key='ь') then ShowMessage('hgfhjgfh')
end;

Для получения этого кода, найди в инспекторе объектов OnKeyPress...

[mager]

Спасибо, что помогли, а как при помощи этой же процедуры, при нажатии на "стрелку влево", на клаве, влево двигается картинка, Name=Image1. Только тут нужна процедура OnKeyDown. Не знаю поняли меня или нет, поэтому объясню нормальным языком:
Зажал кнопку "Стрелка влево" и с интервалом в 1 секунду, картинка смещается вдево на две единицы. Как я понял, надо создать переменную положения картинки, при нажатии на кнопку, к этой переменной каждую секунду прибавлять по две единицы.
Уф!!! Кажеться объяснил. Я смысол понимаю, но вот как это реализовать не знаю, Заранее спасибо.

[Alar]

OnKeyDown - это когда кнопка опускаеться вниз. рекомендую для нового хода нажимать на кнопку ещё раз, для тебя это будет проще...

для картинок используй image, координаты там легко определяються, как для любого объекта.

[SuperVisor]

Ставь два обработчика: OnKeyDown и OnKeyUp На первый влючаем таймер, на второй выключаем.

var x: byte;

procedure TForm1.OnKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);
begin
case key of
37: x := -1; //кнопка влево
39: x := 1; //кнопка вправо
end;
if not Timer 1.Enabled then Timer1.Enabled := True;
end;

procedure Timer1.Timer(Sender : TObject)
begin
Image1.left := Image1.left + 10*x;
end;

[zetrix]

как при помощи этой же процедуры, при нажатии на "стрелку влево", на клаве, влево двигается картинка

Для этого надо сравнивать key с этими константами:
VK_UP - вверх
VK_DOWN - вниз
VK_LEFT - влево
VK_RIGHT - вправо

Для твоего случая (влево):
procedure TForm1.FormKeyPress(Sender: TObject; var Key: Char);
begin
if (key=VK_LEFT) then Image1.left:=Image1.left-2;
//картинка сдвинется на 2 пикселя влево
end;

Не забудь, что картинка может "выехать" за пределы формы.

[mager]

Ещё раз спасибо, но у меня не получилось это реализовать, использую Борландовский делфи7 , вот код который ввел:
procedure TForm1.FormKeyPress(Sender: TObject; var Key: Char);
var x: Integer;
begin
x:=Image1.Left;
if key=VK_LEFT Then<здесь останавливается курсор при проверке
begin
Image1.Left:=x-2;
end;
end;
Я использовал код Zetrixa, чуть его изменил, но не пашет, пишет:
"Incompatible types"

[SuperVisor]

для этой функции тебе прийдется использовать мои значения :
37: //кнопка влево
38: //кнопка вверх
39: //кнопка вправо
40: //кнопка вниз

[mager]

SuperVisor объясни пожалуйста, вставить, где key=VK_LEFT, вместо VK_LEFT - 37или38или39...