delphi – 删除在运行时创建的TLabel

发布时间：2020-12-15 09:42:06 所属栏目：大数据来源：网络整理

导读：如何删除创建的标签,我google了很长时间但没有显示！,我尝试FindComponent但faild,我要做什么？我应该将父母设置为其他组件,如TPanel或什么？我感到很困惑！ procedure TForm1.Button1Click(Sender: TObject);varlblLink : TLabel;begin for i := 0 to strin

如何删除创建的标签,我google了很长时间但没有显示！,我尝试FindComponent但faild,我要做什么？我应该将父母设置为其他组件,如TPanel或什么？我感到很困惑！

procedure TForm1.Button1Click(Sender: TObject);
var
lblLink : TLabel;
begin 

   for i := 0 to stringtList.Count-1 do
   begin 

      lblLink := TLabel.create(self);

           with lblLink do
           begin

             name:='lblLink'+inttostr(i);
             caption:inttostr(i);
             Parent := self;
             font.style := [fsUnderline];
             cursor := crHandPoint;
             color := clBlue;
             font.Color := clBlue;
           end;
    end;
end;

解决方法

您可以迭代Components属性,然后检查组件的名称,最后释放组件.

Var
  LIndex : Integer;
  LComponent : TComponent;
begin
  for LIndex := ComponentCount-1 downto 0 do
    if StartsText('lblLink',Components[LIndex].Name) then
    begin
     LComponent:=Components[LIndex];
     FreeAndNil(LComponent);
    end;
end;

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!