[vakostal]

на второй форме такой код:

Код:

procedure TForm3.TreeView1Change(Sender: TObject; Node: TTreeNode);
begin
   если на первой форме нажали кнопку 2 тогда выполняются эти действия:
(if form1.BitBtn2.OnClick = true then begin - это не работает)
WebBrowser1.Navigate(WideString(GetCurrentDir())+'/lab/' +
TreeView1.Selected.Text+'.mht');
   если на первой форме нажали кнопку 3 тогда выполняются эти действия(как это написать чтобы работало?????):
WebBrowser1.Navigate(WideString(GetCurrentDir())+'/srsp/' +
TreeView1.Selected.Text+'.mht');
end;

MAD: Читаем правила по оформлению кода!