毕业论文开发语言企业开发JAVA技术.NET技术WEB开发Linux/Unix数据库技术Windows平台移动平台嵌入式论文范文英语论文
您现在的位置: 毕业论文 >> 开发语言 >> 正文

delphi自己写的控件用free和freeAndNil释放效果为什么不一样

更新时间:2012-11-5:  来源:毕业论文

今天写了个类似改变窗体皮肤的小控件,但是在窗体删除控件的时候出现了奇怪的现象,部分代码如下:

控件paint消息处理中创建的组件(菜单栏和上面的最小化、最大化、关闭按钮)
     if not Assigned(FMenu) then
      begin
        FMenu:=TImage.Create(FParentWin);
        FMenu.Parent:=FParentWin;
        FMenu.Stretch:=true;
        FMenu.Picture.LoadFromFile('D:\pic\zyz_out.jpg');
        FMenu.OnMouseDown:=MyOnMouseDown;
      end;
      FMenu.SetBounds(0,0,FParentWin.Width,30);

      if not Assigned(FMin) then
      begin
        FMin:=TBitBtn.Create(FParentWin);
        FMin.Glyph.LoadFromFile('D:\pic\减号.bmp');
        FMin.Parent:=TWinControl(FParentWin);
        FMin.OnClick:=MyMinClick;
      end;
      FMin.SetBounds(FParentWin.Width-60,5,15,15);
      if not Assigned(FMax) then
      begin
        FMax:=TBitBtn.Create(FParentWin);
        FMax.Glyph.LoadFromFile('D:\pic\加号

设为首页 | 联系站长 | 友情链接 | 网站地图 |

copyright©youerw.com 优尔论文网 严禁转载
如果本毕业论文网损害了您的利益或者侵犯了您的权利,请及时联系,我们一定会及时改正。