OHHotLabel1Click method |
Applies to
TForm1
Declaration
procedure OHHotLabel1Click(Sender: TObject);Implementation
procedure TForm1.OHHotLabel1Click(Sender: TObject); begin try form2:=TForm2.Create(self); form2.SynMemo1.Highlighter :=form2.SynIniSyn1; form2.Caption :='Downloadable file types - configuration'; form2.Hint:=root+'Support\dwnld_buf.mng'; form2.SynMemo1.Lines.LoadFromFile(form2.hint); form2.ShowModal; freeandnil(form2); except end;End; |
|