Pesquisar na Comunidade

Eu abro minha telas eu um JvPageList, porém percebi que minhas teclas de atalho não funciona mesmo habilitando a propriedade KeyPreview da tela, abaixo segue o código que faço a chamado pelo atalho e o código que abro as telas no PageList, não sei mais o que fazer para fazer essas teclas de atalhos funcionarem...alguém pode me ajudar ? if key = vk_F11 then btEncerrarClick(Self); if key = vk_F2 then btLimparClick(Self); procedure TfrmPlatinum.NovaPagina(ClasseForm: TFormClass;Tela:String); var Aba : TJvTabBarItem; Pagina : TJvCustomPage; Form : TForm; begin if not PodeAbrirFormulario(ClasseForm, Pagina) then begin frmPlatinum.JvPageList.ActivePage := Pagina; Exit; end; dtmPlatinum.tblTelas.First; while not dtmPlatinum.tblTelas.Eof do begin if Tela = dtmPlatinum.tblTelastela.AsString then begin frmPlatinum.JvPageList.ActivePage := Pagina; exit; end; dtmPlatinum.tblTelas.Next; end; Aba := JvTabBar.AddTab(''); Pagina := TJvStandardPage.Create(Self); Pagina.PageList := JvPageList; Form := ClasseForm.Create(Pagina); with Form do begin Align := alClient; BorderStyle := bsNone; Parent := Pagina; end; with Aba do begin Caption := Form.Caption; PopupMenu := Self.PopupMenu; end; if not dtmPlatinum.tblTelas.Eof then dtmPlatinum.tblTelas.Active := true; dtmPlatinum.tblTelas.Insert; dtmPlatinum.tblTelastela.asString := Tela; dtmPlatinum.tblTelas.Post; Form.Show; JvPageList.ActivePage := Pagina; end; function TfrmPlatinum.PodeAbrirFormulario(ClasseForm: TFormClass; var Pagina: TJvCustomPage): Boolean; var I: Integer; begin Result := True; for I := 0 to JvPageList.PageCount - 1 do if JvPageList.Pages[I].Components[0].ClassType = ClasseForm then begin Pagina := JvPageList.Pages[I]; Result := (Pagina.Components[0] as TForm).Tag = 0; Break; end; end; function TfrmPlatinum.ObterPagina(Aba: TJvTabBarItem): TJvCustomPage; begin Result := JvPageList.Pages[Aba.Index]; end; function TfrmPlatinum.ObterAba(Pagina: TJvCustomPage): TJvTabBarItem; begin Result := nil; if Assigned(Pagina) then Result := JvTabBar.Tabs[Pagina.PageIndex]; end;