Bonjour

J'aurais besoins d'information pour remplir l'information dans des composants a partir d,une selection d'un listbox.

Probleme avec IOS toujours pour améliorer mon application IOS. Windows pas de probleme c'est rapide meme instantané.

Test effectué a partir d'un listbox,combobox,comboedit, toujours le même temps pour remplir 3 composants text apres la selection.

Quand je sélectionne l'item du listbox je dois remplir 3 composant text ex: responsable,teléphone et adresse mail. besoin de 3 informations

J'ai testé avec commande SQL, fait un filtre, créer des variables indicés toujours le meme résultat quand je fais le test avec une information c'est parfait mais quand je veux remplir 3 informations il y a toujours un délais apres la sélection et l'affichage dans les composants.le probleme est le delais pour remplir l'information et l'affiché.

Avez vous eu ce probleme qu'elle est le meilleur moyen pour contourner ce ralentissement.


Choix retenue

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
 
 
var
AQuery : TFDQuery;
begin
   rang:=Finforegion.listbox1.ItemIndex;
  AQuery:=TFDQuery.Create(nil);
  try
     AQuery.Connection:=Fdonnees.DONNEESCONNECTION;
     AQuery.SQL.TEXT := 'select RADMIN, RTELE, RMAIL, RREGION, RDIRECTEUR from poste WHERE RRECODE =:R and RREGION=:M';
     AQuery.ParamByName('R').AsString := Comboregionliste.Text;
     AQuery.ParamByName('M').AsString:=Finforegion.listbox1.Items[rang];
     AQuery.Active:=True;
     lresp.text:= 'Resp: '+AQuery.FieldByName('RDIRECTEUR').AsString;
     buttonemail.text:= AQuery.FieldByName('RMAIL').AsString;
     btnMakeCall.text:=AQuery.FieldByName('RTELE').AsString;
     Label15.Text:=AQuery.FieldByName('RREGION').AsString; 
     Finforegion.Label14.Text:=AQuery.FieldByName('radmin').asString;
     AQuery.Active := False;
  finally
    AQuery.Free;
 end;
 
 
//Déjà essayé avec des variables tableaux au lieu de la commande SQL a la selection de l'item du listbox
 
 // rang:=Finforegion.listbox1.ItemIndex;
 //   Label15.Text:=Finforegion.listbox1.Items[rang];
 //   lresp.text:= 'Resp: '+RESPONSABLE[RANG+1];
  //   buttonemail.text:= MAIL[RANG+1];
  //  btnMakeCall.text:=notelephone[RANG+1] ;
end;
Merci de votre aide

Mario