55143681 Posted December 5, 2021 Share Posted December 5, 2021 How to turn to the next page or the prior page with code? Quote Link to comment Share on other sites More sharing options...
Sherzod Posted December 6, 2021 Share Posted December 6, 2021 19 hours ago, 55143681 said: How to turn to the next page or the prior page with code? Hello, One possible solution: procedure TMainForm.UniButton1Click(Sender: TObject); begin with UniDBGrid1 do if WebOptions.Paged then JSInterface.JSCall('pagingBar.movePrevious', []); end; procedure TMainForm.UniButton2Click(Sender: TObject); begin with UniDBGrid1 do if WebOptions.Paged then JSInterface.JSCall('pagingBar.moveNext', []); end; 2 Quote Link to comment Share on other sites More sharing options...
55143681 Posted December 9, 2021 Author Share Posted December 9, 2021 On 12/6/2021 at 1:06 PM, Sherzod said: Hello, One possible solution: procedure TMainForm.UniButton1Click(Sender: TObject); begin with UniDBGrid1 do if WebOptions.Paged then JSInterface.JSCall('pagingBar.movePrevious', []); end; procedure TMainForm.UniButton2Click(Sender: TObject); begin with UniDBGrid1 do if WebOptions.Paged then JSInterface.JSCall('pagingBar.moveNext', []); end; Thank you very much。 C Code is Here: 1)下一页 void __fastcall TUniFormUser::UniBitBtn10Click(TObject *Sender) { if(UniDBGrid1->WebOptions->Paged) { UniDBGrid1->JSInterface->JSCall("pagingBar.moveNext", "[]"); } } 2)上一页 void __fastcall TUniFormUser::UniBitBtn9Click(TObject *Sender) { if(UniDBGrid1->WebOptions->Paged) { UniDBGrid1->JSInterface->JSCall("pagingBar.movePrevious", "[]"); } } 1 Quote Link to comment Share on other sites More sharing options...
Recommended Posts
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.