Нажатие на картинку Enter'ом

[beygul]

procedure TForm1.FormKeyPress(Sender: TObject; var Key: Char);
begin
if Key=#13 then Image1.Click
end;

Почему не работает этот код?

ошибка:

[Error] Unit1.pas(34): Undeclared identifier: 'Click'

Мне нужно чтобы при нажатии на Enter - програмно происходил клик по картинке. Как это сделать, если не так как у меня?

[mihali4]

Сообщение от beygul

Почему не работает этот код?

А потому...

procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
if Key=VK_RETURN then Image1Click(Self);
//или Image1.OnClick(Self);
end;

procedure TForm1.Image1Click(Sender: TObject);
begin
ShowMessage('Aaaa');
end;

Еще соврите, что компилятор вам этого не говорил...

[beygul]

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, jpeg, ExtCtrls;

type
TForm1 = class(TForm)
Image1: TImage;
procedure Image1Click(Sender: TObject);
procedure FormKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Image1Click(Sender: TObject);
begin
ShowMessage('АААААААА');
end;
procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
if Key=VK_RETURN then Image1.OnClick(Self);
end;


end.

Всё равно не работает((( Ошибку не выдаёт, программа запускается, но когда ENTER нажимаю - ничего не происходит(((

[evg_m]

Почему не работает этот код?

Timage is Tgraphiccontrol and is not Twincontrol

[mihali4]

Сообщение от beygul

Всё равно не работает((( Ошибку не выдаёт, программа запускается, но когда ENTER нажимаю - ничего не происходит(((

Потому что нужно иметь на столе книжку для начинающих.
Скачиваем наконец-то и используем в качестве настольной книги:
http://programmersclub.ru/files/book1_100comp.rar
У формы есть свойство, которое заставляет ее "просматривать" нажатия клавиш.

А еще почитайте правила форума и угадайте, за что я вам штраф влепил...