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;


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