代码如下
procedure TMainForm.TreeView2Click(Sender: TObject);
var
node:ttreenode;
begin
if treeview2.Selected =nil then exit;
node:=treeview2.Selected ;
Cur_yg:=PmyRec(node.Data)^.BMid ;
///////////////////////////////if ExistForm('Frmjbzl') then frmjbzl.LgetyG(pmyrec(node.data)^.BMid);
if ExistForm('frmjcgl') then frmjcgl.OpenData(Cur_yg);
end;
procedure TMainForm.TreeView2Click(Sender: TObject);
var
node:ttreenode;
begin
if treeview2.Selected =nil then exit;
node:=treeview2.Selected ;
Cur_yg:=PmyRec(node.Data)^.BMid ;
///////////////////////////////if ExistForm('Frmjbzl') then frmjbzl.LgetyG(pmyrec(node.data)^.BMid);
if ExistForm('frmjcgl') then frmjcgl.OpenData(Cur_yg);
end;
解决方案 »
- datachange中DBGrid统计求和问题
- ltBatchOptimistic 非空列不能为null
- 什么加密算法可以让字符加密成208位字符??
- delphi控制其它程序及其弹出窗口的解决方法(股票自动交易)
- FastRepor里怎样做才能折行?
- 我有六个Gmail的邀请有人要吗?
- 求助: 港口计费解决方案
- 请教toolbar的问题!当toolbar做成浮动工具栏的时候,怎么双击让它回到原来的位置呢?谢谢了!
- 如何将memo中的内容存到access中的blob字段中,又如何将blob字段取出放到memo中,多谢!
- 如何设置输入焦点??急!
- 网络通讯问题,TcpServer和Tcpclient
- 有人用delphi开发CGI的吗?就是李为的ado/mts/com+中的例子(3-10)
那个exsitform就是用来检测的