[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: Читаем правила по оформлению кода!

[Alegun]

Можно в юните завести глобальную переменную, а в процедуре жима кнопок записывать в неё метку

Код:

...
var
Bpess: integer;
...
procedure TForm1.BitBtn2Click(Sender: TObject);
begin
Bpess:= 2;
end;

а в коде так

Код:

...
if Bpress = 2 then WebBrowser1.Navigate(WideString(GetCurrentDir())+'/lab/' +
TreeView1.Selected.Text+'.mht');
...