OHHotLabel4Click method

Applies to
TForm2

Declaration
procedure OHHotLabel4Click(Sender: TObject);

Implementation

procedure TForm2.OHHotLabel4Click(Sender: TObject);
begin try
play_snd(1);
self.Notebook1.PageIndex:=0;
SetPriorityClass(GetCurrentProcess,high_p);
if wikipedia_console.Busy then wikipedia_console.Stop;
wikipedia_console.Go(get_ini_params('wikis',TOHHotLabel(Sender).Hint));
except
on E : Exception do _log_entry_error(E.ClassName,E.Message,'XC03400');
end;End;


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