Bajardi: Nasvaliyeva G. Tekshirdi: Rabbimov I. Samarqand -2019 Mavzu

procedure TForm1.TreeView1Change(Sender: TObject; Node: TTreeNode);

begin

if TreeView1.selected.Index=0

then

begin

WebBrowser1.Navigate(ExtractFilePath(ParamStr(0))+'fayllar/mavzu1.htm');

end;

if TreeView1.selected.Index=1

then

begin

WebBrowser1.Navigate(ExtractFilePath(ParamStr(0))+'fayllar/mavzu2.htm');

end;

if TreeView1.selected.Index=2

then

begin

WebBrowser1.Navigate(ExtractFilePath(ParamStr(0))+'fayllar/Mundarija.htm');

end;

if TreeView1.selected.Index=0

then

end;

end.