OHHotLabel2Click method |
Applies to
TForm1
Declaration
procedure OHHotLabel2Click(Sender: TObject);Implementation
procedure TForm1.OHHotLabel2Click(Sender: TObject); begin try form2:=TForm2.Create(self); form2.SynMemo1.Highlighter :=nil; form2.Caption :='WikiBrowse log file'; form2.Hint:=root+'wikibrowse.log'; form2.SynMemo1.Lines.LoadFromFile(form2.hint); form2.SynMemo1.ReadOnly :=true; form2.FlatButton1.Visible :=false; form2.ShowModal; freeandnil(form2); except end;End; |
|