Utilisation d'un TabControl avec un DBGrid

Bonsoir ,
Y'a t-il quelqu'un qui sache utiliser le composant TabControl?
Pièce jointe 1735

1.Quel est le code onchange de tabcontrol pour n'afficher que les enregistrements commençant par les lettres de l'onglet qui a le focus?

2.Dans mon edit de recherche(combobox) je fais une recherche incrémentale,comment faire pour que le bon onglet de mon tabcontrol ait le focus?
exemple:
J'entre ma 1ère lettre 'R',le curseur se déplace dans mon grid au fur et à mesure que j'ajoute des lettres,mais l'onglet ABC garde le focus.

Merci d'avance
PS:c'est assez urgent,il s'agit de mon tfe,mais bon si personne n'a la solution je n'utiliserai pas ce composant....mais je trouve ça assez joli quand même

Merci à vous

salam ;)

Code:

---

1 2 3 4 5 6

si a ou b ou c alors tabcontrol1.TabIndex:=0; si c ou d ou f alors tabcontrol1.TabIndex:=1; .....

---

a+

Bonjour,
Voici le code que j'ai utilisé et malgré tout ça ne fonctionne pas

Code:

---

1 2 3 4 5 6 7

begin DataForm.QParution.Close; DataForm.QParution.SQL.Clear; DataForm.QParution.SQL.Add('SELECT * FROM PARUTION'); DataForm.QParution.SQL.Add('WHERE NomParution LIKE '+quotedStr(FindEdit.Text+'%')); DataForm.QParution.Open; end;

---

Merci

Sorry,je me suis trompée de code, c'est celui-ci

Code:

---

1 2 3 4 5 6 7 8

procedure TParutionViewForm.IndexTabControlChange(Sender: TObject); begin DataForm.QParution.Close; DataForm.QParution.SQL.Clear; DataForm.QParution.SQL.Add('SELECT * FROM PARUTION'); DataForm.QParution.SQL.Add('WHERE NomParution LIKE '+quotedStr(IndexTabControl.Tabs[IndexTabControl.TabIndex]+'%')); DataForm.QParution.Open; end;

---