Select a item by code

[Thierry]

Hi,

How to select a item by code ?

With fgComboBox.ItemIndex the item is selected but y can not modify the selection with the finger.

Thierry.

[Yaroslav Brovin]

Hello,

What do you mean "y can not modify the selection with the finger"?

Do you mean TComboEdit functionality?

Thank you,
Yaroslav

[Thierry]

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

[Yaroslav Brovin]

Hello,

Unfortunately I don't have UniDAC. Do you have demo sample without it?

Thank you

[Yaroslav Brovin]

Update: I wrote my demo sample with filling items  and selecting ItemIndex after it in OnShow event. And it works fine. So please, provide another sample without UniDAC.

[Thierry]

Hello,

I wrote a simple demo with my problem and some screenshot in the Pdf.

Thank you.

FGX_COMBO.zip Fgx Combo Use.pdf

[Yaroslav Brovin]

Thank you for such detail description. I will have a look and return back with results.

Thank you

[Yaroslav Brovin]

I'm able to reproduce issue.

 

[Yaroslav Brovin]

Fixed at 1.18.2.1.