有from1,其上有edit1等;还有from2,其上有dbgrid1,其datasource=from1.adoquery1
现procedure TForm1.Edit1DblClick(Sender: TObject);
begin
form2.Show;
end;
执行后第一次edit1双击后程序一切正常,但是只要再双击edit1,就会出现以下错误:Access violation at address 0046F7EE in module'report.exe'. Read of address 000002F4
我实在是不知道是什么原因导致地这个错误了,请大虾们帮帮忙吧,指点一下。
现procedure TForm1.Edit1DblClick(Sender: TObject);
begin
form2.Show;
end;
执行后第一次edit1双击后程序一切正常,但是只要再双击edit1,就会出现以下错误:Access violation at address 0046F7EE in module'report.exe'. Read of address 000002F4
我实在是不知道是什么原因导致地这个错误了,请大虾们帮帮忙吧,指点一下。
procedure TForm2.FormClose(Sender: TObject; var Action: TCloseAction);
begin
Action := caFree ;
form1 := nil ;
end;
办法要么是关闭时不释放,要么是重新创建要显示
Form2.Show;
所以你再次点击时会出错,如果form2是动态创建的可以释放,但form1是主窗体是不能释放的
除非你要退出这个程序。