Jump to content

UniComboBox.ItemIndex always equals 0


lxpbuaa

Recommended Posts

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

Please sign in to comment

You will be able to leave a comment after signing in



Sign In Now
×
×
  • Create New...