كيف اجعل الزر يعمل مع entrer

[SMP3]

PHP كود :

procedure WMHotKey(var Msg: TWMHotKey); message WM_HOTKEY;

procedure TMain.FormCreate(Sender: TObject);
begin
  RegisterHotKey(Handle, 0, 0, VK_RETURN);
end;

procedure TMain.FormDestroy(Sender: TObject);
begin
  UnregisterHotKey(Handle, 0);
end;

procedure TMain.WMHotKey(var Msg: TWMHotKey);
begin
  inherited;
  if Msg.HotKey = 0 then
    begin
      Button1.Click;
    end;
end;