lxpbuaa Posted September 17, 2018 Share Posted September 17, 2018 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; Link to comment Share on other sites More sharing options...
lxpbuaa Posted September 18, 2018 Author Share Posted September 18, 2018 I asked myself: FComboPageSize.Parent must be set, otherwise ItemIndex not updated. Link to comment Share on other sites More sharing options...
Recommended Posts
Please sign in to comment
You will be able to leave a comment after signing in
Sign In Now