Hello Yaroslav,
In this form, i fill the combox "cbbSerie" with a query from a database. When i close the form i save the modification to database and no problem at this point.
When a reopen the form (for modification for example), i want to select the datas form the database with this code :
procedure TFormTempsSaisie.fgFormShow(Sender: TObject);
var
vlRQ: TUniQuery;
begin
ListerSerie;
ListerPoste;
if vfAM = 'A' then
begin
nvbMain.Subtitle := 'Nouvelle saisie';
end
else
begin
nvbMain.Subtitle := 'Modification saisie n° ' + IntToStr(vfIDTemps);
vlRQ := TUniQuery.Create(nil);
with vlRQ do
begin
Connection := dmdDatas.conBase;
SQL.Add('Select TE_SERIE, TE_DEBUT, TE_FIN, PO_NOM');
SQL.Add('From Temps');
SQL.Add('Join Poste On Poste.PO_COMPTEUR = Temps.TE_POSTE');
SQL.Add('Where TE_COMPTEUR = :TE_COMPTEUR');
ParamByName('TE_COMPTEUR').AsInteger := vfIDTemps;
Open;
if not Eof Then
begin
cbbSerie.ItemIndex := vfListeSerie.IndexOf(FieldByName('TE_SERIE').AsString);
end;
Close;
end;
FreeAndNil(vlRQ);
end;
end;
The Combobox Item is correctly selected from the database, but the combox is "like" readonly, i can not select another item.
I suppose the problem is the "ItemIndex" property ?
I have join the complete code of the project.
Thanks for your help.
PBC_Menuiserie_Mobile.7z