FlatButton2Click method |
Applies to
TForm12
Declaration
procedure FlatButton2Click(Sender: TObject);Implementation
procedure TForm12.FlatButton2Click(Sender: TObject); begin try if trim(hint)<>'' then begin form1.nav_url.Caption:=hint; form1.nav_active_page.Tag:=form2.fav_.ReadInteger(hint,'PageIndex',0); form1.nav_active_pageTimer(Sender); Close; end; except end;End; |
|