CGDevTools Forum • View topic - TIWCGBSPagination Question

Page 1 of 1

TIWCGBSPagination Question

Posted: 12 Jun 2020 08:01

by dfields

How do I set the Active property of a specific button at runtime?

Re: TIWCGBSPagination Question

Posted: 22 Jun 2020 05:11

by dfields

I figured it out. Here is the code I used in the OnClick event of the Pagination control

Code: Select all: procedure TIWFormBootStrap1.Pagination1IWCGHTMLBSPaginationElementElements0Elements0Events0(Sender: TObject; AParams: TStringList); var idx : integer; begin idx := APArams.Values['index'].ToInteger; PaginationItem := TIWCGBSPaginationItem(Pagination1.Html.Elements[0].Elements[0].Elements[idx]); PaginationItem.Active := true; end;