以编程方式创建标签并从表单中删除标签

Question

我在这里得到了一些代码，它可以很好地创建标签，但是当我释放标签时，它仍然显示在表单上。即使它已被删除并且不再“分配”。

这是下面的代码。 它可以很好地创建标签，但不会删除。 无一例外，分配者说假。

我也可以用 TRectangle 重现这一点。

type
  TForm1 = class(TForm)
    Button1: TButton;
    Button2: TButton;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
      Lab : TLabel;
  end;

var
  Form1: TForm1;

implementation

{$R *.fmx}

procedure TForm1.Button1Click(Sender: TObject);
begin
  Lab := TLabel.Create(Self);
  Lab.Parent := Form1;
  Lab.Text := 'Hello!';
  Lab.Position.X := 30;
  Lab.Position.Y := 40;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
  FreeAndNil(Lab);
  ShowMessage(BoolToStr(Assigned(Lab), true));
end;

Answer 1

我认为

Lab.Parent:= NIL;
FreeAndNil(Lab);

可以提供帮助。

Answer 2

FWIW，使用Delphi XE（不是XE2），您的代码按预期工作（在进行一些小的修改之后，例如用Left 替换Position.X 等）。

需要检查/尝试的一些事情：

• 您的 Parent 真的是 Form1 （因为您使用的是 Lab.Parent := Form1 而不是使用 self ）？
• 您是否尝试过在释放实验室后添加 Self.Repaint ？