今天使用From窗口Close后,发现From的资源还存在,并没有释放资源,只有在程序关闭的时候才去释放. Form1:button按钮 private void button1_Click(object sender, EventArgs e) { Form2 frm = new Form2(); frm.ShowDialog(); } Form2: public Form2() { InitializeComponent(); Trace.WriteLine("From2 Initializ…

今天盒子中有朋友遇到对象释放的问题,原文在这里,他的实现大意是建立一个TmyLayout = class(TLayout),然后在这个类中画线,Form对象调用实例化这个类来画线,然后释放掉这个对象,问题就出在释放.我们看一下他建立这个对象与释放的代码:procedure TForm1.Button1Click(Sender: TObject);var i: Integer;begin     ly := TmyLayout.Create(Self);     ly.Parent := Form…

转自:http://www.cnblogs.com/jshchg/articles/1929894.html MDI子窗体关闭时用到的(以下摘自Delphi的帮助)caNone  The form is not allowed to close, so nothing happens.caHide  The form is not closed, but just hidden. Your application can still access a hidden form.caFree  Th…

网上有篇文章<Delphi接口编程的两大陷阱>,里面提到接口的生存期管理的问题.但该文章里面提到的两个问题,其实都是对 Delphi 不理解导致的.   先说该篇文章中提到的第一个问题为什么是该文章作者不理解 DELPHI 导致他认为那是不可理解的陷阱.然后俺再来重点解释接口的生命周期管理.   一. 接口 - 对象. 假设有接口定义: IMyTask = interface   procedure SayHello; end; 然后有个类实现了该接口: TMyClass = class(TC…

MDI子窗体关闭时用到的(以下摘自Delphi的帮助)caNone  The form is not allowed to close, so nothing happens.caHide  The form is not closed, but just hidden. Your application can still access a hidden form.caFree  The form is closed and all allocated memory for the form…

1.取得可文件路径 Path := ExtractFilePath(Application.ExeName); //取得可执行文件路径 TXMLDocument.Create(ExtractFilePath(Application.ExeName)+ '001.xml') 2.DisableControls EnableControls ClientDataSet.DisableControls; ... for I := 0 to 10000 do begin ClientDataSet.Ap…

取消自动创建窗体 Form1关键代码 implementation uses Unit2; {$R *.dfm} procedure TForm1.Button1Click(Sender: TObject); begin if not Assigned(Form2) then //assigned 是用来判断某一指针(pointer)或过程引用是否为nil(空),如果为空则返回假(false). begin Form2 := TForm2.Create(Self); Form2.Show; en…

//第一种方式 procedure TForm1.btn1Click(Sender: TObject); begin With TForm2.Create(Application) do Try ShowModal; finally free; end; end; //第二种方式 procedure TForm1.btn2Click(Sender: TObject); begin if not assigned(Form2) then begin Form2:=TForm2.Create(nil…

先看效果: 这个小图标可以进行随意拖拽,点击还可以产生事件 随便演示一下,效果就是这样的. 下面直接演示如何制作: 新建一个窗体,设置窗体的FormBorderStyle为None(去掉窗体边框): 调整窗体的大小,和你的图标差不多大小就行,至于动态图,还在测试中,图标必须是没有背景的,因为有背景的图片展示出来,即时窗体透明,也会显示图片的白色背景,会很丑,所以要选没有背景的图片,可以网上找到之后自己拿ps把背景去掉,记住这里是图片背景,不是窗体背景! 窗体背景一般默认BackColor为Con…

form.Free   -   释放Form占用的所有资源.Free后,Form指针不能再使用,除非对Form重新赋值.   form.Hide   -   隐藏Form.可以调用form.Show再一次显示.   form.close   -   关闭Form,实际的结果取决于OnCloseQuery和OnClose,如果OnCloseQuery的CanClose为False,不执行任何操作,如果为True,进一步考察OnClose的Action的值:   caNone:   不执行任何操作 …