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; |
|