Discussion :

[crassetph]

J'utilise une combobox drop down chargée à l'ouverture de la fiche par les données d'un fichier
Elle est utilisée en input de données ensuite. Tout fct bien.

Je voudrais supprimer le click obligatoire sur la combo, qui permet d'entrer en input sur le combo.txt.
Pour cela dans l'événement de chargement du fichier dans ma combo, je rajoute Combobox.setfocus..

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
procedure TFrmLiv.BtnOuvTitLivClick(Sender: TObject); {Ouvrir fichier des Titres de livres}
Var  F : textfile; Txt, CheminFichier, NomFichier, ExtFichier, NFichPhys:string;
begin {1} //Affectation des variables
  txt:='';  CheminFichier:=ExtractFilePath(Application.ExeName); ExtFichier:='txt';
  NomFichier:='TomTitLiv01';
  NFichPhys:=CheminFichier+NomFichier+'.'+ExtFichier;
  AssignFile(F,NFichPhys); {$I-}     //La vérification d'E/S est désactivée
  Reset(F);   {$I+} //La vérification d'E/S est activée
  if {if1} IoResult=0 
  then //Renvoie l'état de la dernière opération d'E/S           
    begin{2}CbTitLiv.items.Clear;CbTitLiv.Items.LoadFromFile(NFichPhys);CloseFile(F);
__________ICI ____> CbTitliv.SetFocus;
            PnlTitLivLigEta.Caption := 'Fichier "Livre" chargé ou re-chargé dans la boîte déroulante !';end {2} 
    else begin {3}  
    Txt:='Fichier'+#13#10+NomFichier+#13#10+' non présent ou endommagé '+#13#10; Txt:=Txt+'Restaurez le fichier'+#13#10;
    ShowMessage(txt);rewrite(F);Exit;end;{3}
end;{1}

et cela me provoque l'erreur de class violation avec "Impossible de focaliser une fenetre no focalisee ou invisible"

Comment faire dès lors pour donner le focus à la saisie d'un élét nouveau de la combo dès l'entrée de la fiche,après population de la combo?
Merci

[Aka Guymelef]

Peut-être que ceci répondra à votre question. Attention tout de même que l'on y parle de version relativement ancienne de Delphi.

[crassetph]

Peut-être que ceci répondra à votre question. Attention tout de même que l'on y parle de version relativement ancienne de Delphi.

Bonjour, J'ai trouvé le correrectif suivant suite àla réponsede Aka, mais une mais l'erreur suivante survient : Identificateursnon déclaré Cbobox.HasFocus et CbBox.RestoreFocus ...

Code :

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

1
2
3
4
5
6
7
8
9
 if ComboBox1.HasFocus {and (ComboBox1.Style = csDropDown)} then
   RestoreFocus := true
 else
   RestoreFocus := false;
 
 ComboBox1.Sorted := true;
 
 if RestoreFocus then
   WinProcs.SetFocus(ComboBox1.Handle);

Ps:même si je déclare des variables boolean...
Merci

[Aka Guymelef]

RestoreFocus n'est qu'une variable locale dans cette procédure. Pour remplacer HasFocus (qui doit dater du temps des vielles versions de Delphi) je d'utiliser la méthode Focused du TComboBox.

[Andry]

Alors, les rares fois ou j'ai ce message, je déplace le Compo.SetFocus dans l'evenement OnShow de la fiche qui contient le composant.
Après, l'erreur ne survient plus

[crassetph]

Super simple et cela marche.
Merci Andy,merci,

[Andry]

Hereux que cela a pu t'aider.
A+