BooksandDocumentsStartPage1Click method |
Applies to
TForm2
Declaration
procedure BooksandDocumentsStartPage1Click(Sender: TObject);Implementation
procedure TForm2.BooksandDocumentsStartPage1Click(Sender: TObject); begin try play_snd(1); self.Notebook1.PageIndex:=5; SetPriorityClass(GetCurrentProcess,high_p); if (Trim(wikibooks_console.LocationURL)='')or(Sender=OHHotLabel3) then wikibooks_console.Go(get_ini_params('wikis','wikibooks.main')); except on E : Exception do _log_entry_error(E.ClassName,E.Message,'A80000'); end;End; |
|