动态创建listbox释放报'ntdll.dll'错误的解决方法

减小字体 增大字体 作者:佚名  来源:转载  发布时间:2010-12-04 00:10:58

动态创建了一个ListBox释放的时候居然内存报错!

procedure TForm5.FormCreate(Sender: TObject);
begin
//**********
  ListBox1:=TListBox.Create(self);
  ListBox1.Parent:=self;
  ListBox1.Left:=100;
  ListBox1.Top:=100;
  ListBox1.Width:=400;
  ListBox1.Height:=400;
  ListBox1.Style:=lbOwnerDrawVariable;
   ListBox1.ItemHeight:=100;
  ListBox1.AddItem('123',self);
end;

procedure TForm5.FormDestroy(Sender: TObject);
begin
//*************

//ListBox1.Style:=lbStandard;//
ListBox1.Free;
end;

出现Exception class EAccessViolation with message 'Access violation at address 7C93B1FA in module 'ntdll.dll'.问题??

解决方案:
在free之前,还原风格,ListBox1.Style:=lbStandard;
OK!!!
本文来自:http://www.cnblogs.com/huking/archive/2010/03/25/1694787.html

Tags:

作者:佚名
  • 好的评价 如果您觉得此文章好,就请您
      0%(0)
  • 差的评价 如果您觉得此文章差,就请您
      0%(0)

文章评论评论内容只代表网友观点,与本站立场无关!

   评论摘要(共 0 条,得分 0 分,平均 0 分) 查看完整评论