Delphi 动态创建窗体，锁定窗口赋值

最新推荐文章于 2021-07-17 23:19:50 发布

weixin_30544657

最新推荐文章于 2021-07-17 23:19:50 发布

阅读量234

点赞数

CC 4.0 BY-SA版权

原文链接：http://www.cnblogs.com/wuxi15/archive/2013/01/05/2845166.html

本文介绍了一个程序中如何动态地创建窗体并管理它们，同时与输入数据进行交互，包括添加窗体、更新窗体属性以及筛选并操作窗体内的数据。

 Var

    TempForm: array of TForm2;

procedure TForm1.Button2Click(Sender: TObject);
Var
  i:Integer;
  bNew:Boolean;
begin
 bNew:=True;
  For i:=Low(TempForm) to High(TempForm) do
    begin
       IF TempForm[i].Caption=Trim(Edit1.Text) then
          begin
             TempForm[i].Show;
             bNew:=False;
             Exit;
           end;
           bNew:=True;
      end;
    IF bNew then
      begin
        SetLength(TempForm,Length(TempForm)+1);  //给数据增加一个值
        TempForm[High(TempForm)]:=TForm2.Create(nil); //创建窗体
        TempForm[High(TempForm)].Caption:=Trim(Edit1.Text); //窗体Caption赋于值，以便锁定
        Self.CheckListBox1.Items.Add(Trim(Edit1.Text));
        TempForm[High(TempForm)].Show;     //数组的最高值便是当前所创建的窗体
       end;
end;

procedure TForm1.Button3Click(Sender: TObject);
Var
 i:integer;
 bName:String;
begin
  For I:=0 to CheckListBox1.Count-1 do
    begin
       if CheckListBox1.Selected[i] then
          bName:=CheckListBox1.Items.Strings[i];
     end;
  For I:=Low(TempForm) to high(TempForm) do
    begin
      if TempForm[i].Caption=bName then
        begin
           TempForm[i].Edit1.text:=Edit2.text;
         end;
      end;
end;

转载于:https://www.cnblogs.com/wuxi15/archive/2013/01/05/2845166.html