if ((trvFunction.Selected.Parent <> nil) and (trvFunction.Selected.Parent.Text = '客户投诉')) then if not hAVEMDICHILD('客户投诉') then begin ShowMDIChild(TFrmFeedback, TForm(FrmFeedback)); exit; end;
你说的是ITEMS是指节点吧在TREEVIEW中的ONDBCLICK事件中写代码 假设当前组件为TREEVIEW1 IF TREEVIEW1.Selected.Text = '你的节点名称' then begin form1 := tform1.create(self); form1.showmodel; end;
(trvFunction.Selected.Parent.Text = '客户投诉')) then
if not hAVEMDICHILD('客户投诉') then begin
ShowMDIChild(TFrmFeedback, TForm(FrmFeedback));
exit;
end;
IF TREEVIEW1.Selected.Text = '你的节点名称' then begin
form1 := tform1.create(self);
form1.showmodel;
end;