procedure
TForm1
.
TreeView1DblClick(Sender: TObject);
begin
if
form1
TreeView1
Selected
SelectedIndex=
1
then
form3
Show;
end
;
2
form2
Сайт
Форум
FAQ
Соглашения
Прочее