一直困扰我,无法解决的窗体互相影响如何实现?望各位指点!! 是不是你在点了“OK”后,先关了B,再在A中创建节点?这样就不对了 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 B中点按钮后是否就释放了B,A中创建节点是否B中的信息,如果是不要释放B先,建完节点在释放不迟 没有关闭窗体B,因为我是在窗体B中创建窗体A的TreeView的节点,如果关闭窗体B后,在窗体A中创建节点不会出现错误. 这是一个访问出错,是它们两个窗体凋用出错,有没有模式显示关不是最重要,而应该是你这两个动态建窗体上的错;Unit Unit1;InterfaceUses ...,Unit2;...Unit Unit2...ImplementationUses Unit1;你应该就是这样的,动态建窗体,这样调用很容易出错,你最好用第三个Unit窗体,或是用不同的query,然后保存下这个Node,检测Table里的数据是否有变化,如果有的话,再进行操作,呆会给你写一个两个窗体相互凋用的例子;其实你用TControlPage就不存在这种问题 在窗体B中点击一次确认按钮,就在窗体A中创建一个节点,请 ihihonline(小小) 再指点指点,我老碰到这种问题,可我一直无法解决。 你现在是不是如下,比如:MainForm->Form1(创建)Form1->Form2(创建)就是说MainForm创建Form1,而Form1又创建Form2?而它们又互相调用?如果是这样的话,你试一试NO.1:将它们之一不要动态创建;NO.2:借用第三个单元进行引用;NO.3:进行query.close and query open操作;然后再进行添加,但是有一点就是,你一定要保存操作的Node;简单的例子:Unit Unit1Interface...Unit2;...procedure TForm1.Button1Click(Sender: TObject);var Form2:TForm2;begin Form2:=TForm2.Create(application); Form2.Edit1.text:=Combobox1.text; Form2.ShowModal;end;Unit Unit2;...implementationUses Unit1;{$R *.DFM}procedure TForm2.Edit1Change(Sender: TObject);begin Form1.Edit1.text:=edit1.text;end; 小小说的对!你可以在关闭B之前把你输入的信息保存在一个全局数组,在关闭B之后,Unit2再去读数组里的东西. 那么你就让form1不要自动创建,应该可以的;如我给你的例子; http://www.csdn.net/expert/topic/642/642035.xml?temp=.8873712你先看一看,试一试 你可以试着将B自动chuang jian;中午没有在公司,没有办法帮你试 如果以后你找到了更好的解决办法,请给我回信[email protected]多谢关心! 呵呵,重在于交流:)好的,我会的[email protected] 请教个webbrowser1 .free切换恢复正常问题 如何知道网络中的设备是否开机。 DB2多國語言支持問題 诚聘Delphi程序员 剪贴板的问题 delphi7交流 在一个应用程序中,有多个NMUDP控件,端口一样,接收信息时去只有一个才能收到!怎么样控制哪个接收呢? 我想问一个很菜的问题!!!!!!!!!!!!!!! 怎样为parodox表设置副索引?能否在设计期间指定副索引? WINDOWS的DrawFocusRect功能是怎么样实现的? 怎样得到数字或英文字母的字形码? 在线等待,高分求救
Unit Unit1;
Interface
Uses
...,Unit2;
...Unit Unit2
...
Implementation
Uses
Unit1;
你应该就是这样的,动态建窗体,这样调用很容易出错,你最好用第三个Unit窗体,或是用不同的query,然后保存下这个Node,检测Table里的数据是否有变化,如果有的话,再进行操作,呆会给你写一个两个窗体相互凋用的例子;
其实你用TControlPage就不存在这种问题
MainForm->Form1(创建)
Form1->Form2(创建)
就是说MainForm创建Form1,而Form1又创建Form2?而它们又互相调用?
如果是这样的话,你试一试
NO.1:
将它们之一不要动态创建;
NO.2:
借用第三个单元进行引用;
NO.3:
进行query.close and query open操作;
然后再进行添加,但是有一点就是,你一定要保存操作的Node;
简单的例子:
Unit Unit1
Interface
...Unit2;
...
procedure TForm1.Button1Click(Sender: TObject);
var
Form2:TForm2;
begin
Form2:=TForm2.Create(application);
Form2.Edit1.text:=Combobox1.text;
Form2.ShowModal;
end;Unit Unit2;
...implementation
Uses
Unit1;
{$R *.DFM}procedure TForm2.Edit1Change(Sender: TObject);
begin
Form1.Edit1.text:=edit1.text;
end;
如我给你的例子;
你先看一看,试一试
中午没有在公司,没有办法帮你试
[email protected]多谢关心!
好的,我会的
[email protected]