Fórum Teclas de função não funciona no Pagecontrol #283998

Olá amigos :oops:

tenho uma aplicação que no menu principal os form´s abrem dentro de um page control, para cada form abre uma aba. O problema é que tenho um componente que faz busca na base de dados que pressionando F3, o foco vai para a posição do campo vc digita e pressioando F3 novamente ele faz a pesquisa. Quando testo o componente sem usar esse metodo de abrir form´s no pagecontrol funciona perfeitamente( no caso de um form normal), já o form abrindo dentro da aba do pagecontrol não funciona.

O que pode estar acontecendo? já mudei a propriedade keypreview para true nos forms e nada.

já tentei desta forma.

procedure TFmPadrao.FormKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
{ case Key of
VK_F3 : DBHotKey1FindRecord(Sender);
VK_F4 : SuperSearch.CancelSearch;
VK_F5 : SuperSearch.EmptySearch;
VK_F6 : SuperSearch.RestoreOriginalSQL(True);
end;}
end;


// Rotina para criar o form

function TFmMenuPadrao.CriaPagina(Classe: TClasseForm; const Txt: String; Id: Pointer): TxpTabSheet;
var tab: TxpTabSheet;
i,q: Integer;
begin
//existe?
tab := nil;
q := xpPageControl1.PageCount-1;
for i := 0 to q do
if xpPageControl1.Pages[i].Tag = Integer(Id) then begin
tab := TxpTabSheet(xpPageControl1.Pages[i]);
break;
end;
if tab = nil then begin
tab := TxpTabSheet.Create(Self);
tab.PageControl := xpPageControl1;
tab.Caption := Txt;
tab.Color := TColor($00FBF1ED);
tab.Tag := Integer(Id);
end;
xpPageControl1.ActivePage := tab;
with Classe.Create(tab) do begin
BorderStyle := bsNone;
Align := alClient;
Parent := tab;
Caption := Txt;
Show;
end;
Result := tab;
end;


Atenciosamente

Silvio Guedes