| QuotesStartPage1Click method |
Applies to
TForm2
Declaration
procedure QuotesStartPage1Click(Sender: TObject);Implementation
procedure TForm2.QuotesStartPage1Click(Sender: TObject);
begin try
play_snd(1);
self.Notebook1.PageIndex:=7;
SetPriorityClass(GetCurrentProcess,high_p);
if (Trim(Wikiquote_console.LocationURL)='')or(Sender=OHHotLabel3) then
Wikiquote_console.Go(get_ini_params('wikis','Wikiquote.main'));
except end;End; |
|
|