主窗体unit
主窗体对象,
通过主窗体打开一个子窗体.
子窗体在implement里循环引用了主窗体unit,
子窗体做完事情后关闭, 想调用主窗体的close方法,让他关闭,可是没反应,主窗体关不掉,怎么办呀?
但调用他的其他方法就可以了,为什么呀?
什么代码？
unit OrderNewBookUnit;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, TntStdCtrls, Grids,
TntGrids, YxAdvSGrid,UpdateOrderUnit;
type
TOrderNewBookForm = class(TForm)
///////////////////////
procedure TOrderNewBookForm.updateTntButtonClick(Sender: TObject);
var
updateOrderForm:TupdateOrderForm;
begin
updateOrderForm:=TupdateOrderForm.Create(self);
updateOrderForm.YxAdvSGrid1:=YxAdvSGrid1;
updateOrderForm.FormStyle := fsMDIChild;
updateOrderForm.Show;
end;
///子窗体的代码:
unit UpdateOrderUnit;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, TntStdCtrls, ExtCtrls, TntExtCtrls,
YxAdvSGrid,unitDataType,UnitPublic,UnitConst
type
TupdateOrderForm = class(TForm)
var
updateOrderForm: TupdateOrderForm;
issuingData
最近换了家公司，郁闷的是关于Delphi的问题，公司之前用的也是D版Delphi7企业版的。后来被送了律事函以后，就强制改用Delphi7个人版，剧说这个版本是免费版，或者说很便宜，如果查出来，就买个好了。这下可好。苦了� ......
