如:
frm_QuoteEdit_add := Tfrm_QuoteEdit.Create(self);procedure Tfrm_QuoteEdit.FormClose(Sender: TObject; var Action: TCloseAction);
begin
Action := caFree;
end; 当第二次运行frm_QuoteEdit_add := Tfrm_QuoteEdit.Create(self);
时回报错,有没有一种方法判断它是否已经实例化,如果已经实例化就执行:frm_QuoteEdit_add.show
frm_QuoteEdit_add := Tfrm_QuoteEdit.Create(self);procedure Tfrm_QuoteEdit.FormClose(Sender: TObject; var Action: TCloseAction);
begin
Action := caFree;
end; 当第二次运行frm_QuoteEdit_add := Tfrm_QuoteEdit.Create(self);
时回报错,有没有一种方法判断它是否已经实例化,如果已经实例化就执行:frm_QuoteEdit_add.show
解决方案 »
- delphi adoconnection连接ORACLE数据库问题
- 怎样用Delphi编写视频捕捉程序,能解决问题的一定给分
- DBTreeview建树问题,知道TDBTreeView component 的高手请进
- 用什么方法可以双击IMAGE控件使无标题栏窗体变为最大化或最小化,像金山词霸那种?
- Delphi连接Ms sql2000 这难呀??
- 帮我看一下这段代码为什么我写的stringgrid不能连续保存数据
- delphi7.0+access
- 高手必杀
- 小弟不知道下面的ActiveQuery是如何来的,请指教!!非常感激!
- 关于Printers的打印问题!!
- QUERY 中用sql select LIKE 怎样加参数?最好举个例子!thank you !
- 条码枪输入问题
frm_QuoteEdit:=nil然后
if frm_QuoteEdit=nil then frm_QuoteEdit_add := Tfrm_QuoteEdit.Create(self);
frm_QuoteEdit.Show;
frm_QuoteEdit_add := Tfrm_QuoteEdit.Create(self);
begin
frm_QuoteEdit_add := Tfrm_QuoteEdit.Create(self);
end
else
begin
frm_QuoteEdit_add.Show ;
end;再次运行还是会报错!
begin
Action := caFree;
end;
procedure Tfrm_QuoteEdit.FormDestroy(Sender:TObject);
begin
frm_QuoteEdit_add:=nil;
end;