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

　2013-01-05 18:59:36　来源：WEB开发网　闂傚倷绶氬ḿ褍螞閹绢喖绠柨鐕傛嫹

闂傚倷绀侀幉锟犲垂閻㈠灚宕查柟鎵閸庡秵銇勯幒鎴濃偓鐢稿磻閹炬枼妲堟繛鍡楃С濞岊亞绱撻崒姘扁枌闁瑰嚖鎷�

婵犵數濮幏鍐川椤撴繄鎹曢梻渚€娼уú銈吤洪妸鈺佺劦妞ゆ帊鑳堕埊鏇㈡煏閸モ晛浠х紒杈╁仱閺佹捇鏁撻敓锟�闂傚倷绶氬ḿ褍螞閹绢喖绠柨鐕傛嫹　　闂傚倷鑳舵灙缂佺粯顨呴埢宥夊即閵忕姵鐎梺缁樺姇閻忔氨鈧凹鍓熷娲垂椤曞懎鍓伴梺閫炲苯澧紒澶婄秺瀵濡歌閸嬫捇妫冨☉娆忔殘闂佷紮缍€娴滎剟鍩€椤掑倹鏆柛瀣躬瀹曚即寮借閺嗭箓鏌ㄩ悤鍌涘

核心提示： VarTempForm: array of TForm2;procedure TForm1.Button2Click(Sender: TObject);Vari:Integer;bNew:Boolean;beginbNew:=True;For i:=Low(TempForm) to High(TempForm) do

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;