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;


HTML generated by Time2HELP
http://www.time2help.com