动态创建编辑控件和释放的有关问题,代码如下

动态创建编辑控件和释放的问题,代码如下.
unit Unit1;

interface

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

type
  TForm1 = class(TForm)
  ScrollBox1: TScrollBox;
  Button1: TButton;
  procedure FormShow(Sender: TObject);
  procedure FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
  procedure Button1Click(Sender: TObject);
  private
  lst: TList;
  procedure CreateEdit;
  procedure ClearEdit;
  public
  { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

{ TForm1 }
//清除
procedure TForm1.ClearEdit;
begin
  if Assigned(lst) then
  begin
  while lst.Count > 0 do
  begin
  TLabeledEdit(lst.Items[0]).Free;
  lst.Delete(0);
  end;
  FreeAndNil(lst);
  end;
end;
//创建
procedure TForm1.CreateEdit;
var
  lb: TLabeledEdit;
  i: integer;
begin
  lst := TList.Create;
  for I := 0 to 100 do
  begin
  lb := TLabeledEdit.Create(nil);
  lb.Name := 'test' + IntToStr(i);
  lb.Top := i * 40 + 20;
  lb.Left := 10;
  lb.Visible := True;
  lb.Parent := ScrollBox1;
  lst.Add(lb);
  end;
end;

procedure TForm1.FormShow(Sender: TObject);
begin
  CreateEdit;
end;

procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if Key = VK_F1 then
  begin
  ClearEdit;
  CreateEdit;
  end;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  ClearEdit;
  CreateEdit;
end;

窗口启动后将光标停留在动态创建的编辑框内,按F5,结果会连续出现两次AV错误,之后就没有,如果光标不在编辑框内则不会报AV错误.不知道什么原因.

[解决办法]
在Delphi的早期版本中确实有这个问题，
我试了下，Delphi5会AV错误，在Delphi2007下没有这个问题了
[解决办法]
在delphi 2006 下面也没有问题.

这样改下试试, 把 CreateEdit 从 FormShow放到 FormCreate 事件中

另外CreateEdit 代码改成这样试试

procedure TForm1.CreateEdit;
var
lb: array[0..100] of TLabeledEdit;
I: integer;
begin
lst := TList.Create;
for I := 0 to 100 do begin
lb[I] := TLabeledEdit.Create(nil);
lb[I].Name := 'Test' + Trim(IntToStr(I));
lb[I].Top := I * 40 + 20;
lb[I].Left := 10;
lb[I].Visible := True;
lb[I].Parent := ScrollBox1;
lst.Add(lb[I]);
end;
end;
[解决办法]
在Form上方置一个Edit控件，焦点落在其中，按F1调用ClearEdit;CreateEdit; 就不会出错。

猜想问题所在是因为焦点落在 TLabeledEdit 对象里头，一直触发 CN_COMMAND
procedure CNCommand(var Message: TWMCommand); message CN_COMMAND;

procedure TCustomEdit.CNCommand(var Message: TWMCommand);
begin
if (Message.NotifyCode = EN_CHANGE) and not FCreating then Change;
end;

对象被 Free，消息可能还在循环，就出现访问对象地址错误。
[解决办法]
有点意思，继续关注一下。
估计所有可录入控件都存在此问题？