程序结束时PNGImage"访问冲突"错误

Question

我在我的项目中使用PNGImage库,整个GUI由.png图像组成,我在运行时加载到TImages.出于某些目的,我必须动态创建大量彼此相似的组件组.每个组都包含一些TImages,并有一个按钮,允许用户前往另一个页面,其中包含有关被点击项目的更多详细信息.

我正在使用的代码:

procedure TMain_Frame.selection_click(Sender: TObject);
var id: string;
begin
  id := StringReplace(TLabel(sender).Name, 'label_item_select_', '', [rfReplaceAll]);
  hide_created_components; // It does Free all components
  show_details(id);
end; // (1)

Access violation错误发生在(1).奇怪的是它发生完全随机:错误可能在第一次点击时发生,或者可能不会发生10次点击.如果没有发生错误,F8会引导我进入PNGImage库,其中有些东西已完成.但是当发生错误时,F7/8立即抛出它而不做它必须做的事情.只有当我从动态创建的对象转到静态时,才会出现此问题.

CPU窗口显示此ASM代码发生错误:

movzx ecx, [edi]

ecx值为755A2E09,edi为00000000

.Free所有动态创建的组件都是正确的吗？或者应该.Destroy使用？为什么PNGImage会在程序中进入内部end;？

---

演示:

unit Unit1;
interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, pngimage, ExtCtrls;

type
  TForm1 = class(TForm)
    Button1: TButton;
    Image1: TImage;
    procedure selection_click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure create_label;
var Button: TLabel;
begin
  Button := TLabel.Create(Form1);
  with Button do
  begin
    Name := 'dynamic_label_1';
    Parent := Form1;
    Autosize := false;
    Left := 100;
    Top := 100;
    Width := 150;
    Height := 20;
    Caption := 'Dynamic Label: Click Me';
    BringToFront;
    Cursor := crHandPoint;
  end;
  Button.OnClick := Form1.selection_click;
end;

procedure hide_dyn_label(L: TLabel; mode: boolean);
begin
  if mode then
  begin
    L.Free;
    Form1.Image1.Picture.LoadFromFile(PAnsiChar('button_close.png'));
    Form1.Image1.Visible := true;
  end
  else
    create_label;
end;

procedure TForm1.selection_click(Sender: TObject);
var id: string;
begin
  id := StringReplace(TLabel(Sender).Name, 'dynamic_label_', '', [rfReplaceAll]);
  Form1.Button1.Visible := true;
  hide_dyn_label(Form1.FindComponent('dynamic_label_1') as TLabel, true);
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  create_label;
  Form1.Image1.Visible := false;
  Form1.Button1.Visible := false;
end;

end.

Answer 1

你TLabel仍然在它的OnClick事件处理程序中释放while ,Selection_Click它调用hide_dyn_label()哪些调用L.Free.你不能这样做.使用某种延迟破坏,f.ex.使用FreeDynLabels您可以签入的布尔变量Application.OnIdle.或者将自定义消息发布到表单.