UniComboBox.ItemIndex always equals 0

[lxpbuaa]

Hi,

I create a combobox at runtime, and insert into DBGird.pagingBar:

 FComboPageSize := TUniComboBox.Create(Self.Owner);
    FComboPageSize.Items.Add('每页25条');
    FComboPageSize.Items.Add('每页50条');
    FComboPageSize.Items.Add('每页100条');
    FComboPageSize.Items.Add('每页200条');
    FComboPageSize.Style := csDropDownList;
    FComboPageSize.ItemIndex := 0;
    FComboPageSize.OnChange := DoCombPageSizeChange;

procedure TdlzUniDBGrid.DoOnAfterLoad;
begin
  if WebOptions.Paged then
    JSInterface.JSCall('pagingBar.insert', [1, FComboPageSize.JSControl]);
  inherited;
end;

FComboPageSize.ItemIndex always equals 0, why, thanks!

procedure TdlzUniDBGrid.DoCombPageSizeChange(Sender: TObject);
begin
  if WebOptions.Paged then
    WebOptions.PageSize := Round(25 * Power(2, FComboPageSize.ItemIndex));
end;

 

 

[lxpbuaa]

I asked myself：  FComboPageSize.Parent must be set, otherwise ItemIndex not updated.