Delphi - Comment mettre automatiquement en surbrillance la première entrée dans une DBLookupListBox lors de la création d'un formulaire

Question

Comment mettre automatiquement en surbrillance la première entrée d'une DBLookupListBox sans que l'utilisateur final ne la mette en surbrillance.

procedure TForm2.FormCreate(Sender: TObject); 
begin 
    Form2.ActiveControl := DBLookupListBox1; 
end; 

Mais cela ne fonctionne pas, j'ai aussi essayé DBLookupListBox1.setfocus sur la forme de créer, mais cela donne une erreur, parce que le DBLookupListBox est pas encore créé.

Merci

-Brad

Answer 1

Je n'ai pas testé, mais je suppose que vous devez utiliser SetFocus dans l'événement OnShow du formulaire pour activer le contrôle.

procedure TForm2.FormShow(Sender: TObject); 
begin 
    DBLookupListBox1.SetFocus; 
end; 

Définition d'une valeur par défaut est un peu plus compliqué parce que le DBLookupListBox est DB-aware. Une approche consiste à définir les valeurs par défaut dans les jeux de données OnNewRecord événement ou AfterInsert événement:

procedure TMyDataModule.cdsMyClientDataSetNewRecord(DataSet: TDataSet); 
begin 
    cdsMyClientDataSetMYPERSISTENTFIELDNAME.Value := 0; 
end; 

Si vous souhaitez tout de même faire du formulaire:

procedure TForm2.FormShow(Sender: TObject); 
const 
    DEFAULT = 0; 
var 
    S: String; 
begin 
    S := DBLookupListBox1.DataField; 

    if DBLookupListBox1.DataSource.DataSet.FieldByName(S).IsNull then 
    begin 
    DBLookupListBox1.DataSource.DataSet.Edit; 
    DBLookupListBox1.DataSource.DataSet.FieldByName(S).Value := DEFAULT; 
    DBLookupListBox1.DataSource.DataSet.Post; 
    end; 
end; 

à mon humble avis:
La définition de valeurs par défaut doit être considérée comme une logique métier et appartient donc au DataModule.

Le réglage du focus approprié est GUI-logic et doit être fait dans le formulaire.