Comment appeler un ensemble de mise en forme sur une création de formulaire

Question

Je crée une petite application avec quelques raccourcis 'Recherche', F1 à F4 pour rechercher dans différentes tables d'une base de données, j'ai donc créé un TPageControl pour contenir la recherche champs et aussi afficher les résultats, donc j'ai 1 PageControl et 4 feuilles à onglets, mais j'essaie de mettre une instruction if pour définir le focus sur le champ de recherche approprié et je l'appelle sur l'événement OnShow de TPageControl, mais je reçois un message d'erreur: Form: TForm ne peut pas se concentrer

Si je n'ai pas tout faux, c'est parce que le champ de texte est introuvable, vu que je montre la page avant que l'application puisse créer les éléments à l'intérieur de cette page, alors, comment puis-je modifier ce code ou où puis-je l'utiliser pour le faire fonctionner, juste me rappeler que je dois appeler cette procédure avec t Il raccourcit les touches plus tard.

La procédure que je utilise pour régler la mise au point est un simple SI avec 4 conditions dans mon cas réel:

procedure TForm.searchFocus; begin 
if pgcSearches.TabIndex=0 then begin 
editFieldNames.SetFocus; 
end 
else if pgcSearches.TabIndex=1 then begin 
editFieldAdresses.SetFocus 
end; 
end; 

Answer 1

A plus d'aide 'explicite' d'un autre forum:

procedure TfrmMain.pcSearchesChange; 
begin 
case pcSearches.TabIndex of 
0: ActiveControl:=edtSearchSongs; 
1: ActiveControl:=edtSearchBibles; 
2: ActiveControl:=edtSearchWarning; 
end; 

if Visible then 
ActiveControl.SetFocus; 
end;