Discussion :

[keisha]

Bonsoir ,
Y'a t-il quelqu'un qui sache utiliser le composant TabControl?


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

[maamar1979]

salam

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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+

[keisha]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[keisha]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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;