for i:=1 to strtoint(edit1.text) do
with TForm3.Create(self) do
begin
Memo1.Lines.Add(IntToStr(i));
name:='drawer'+IntToStr(i);
Memo1.Lines.Add(name);
Memo1.Lines.Add(inttostr(Handle)); //***********************可以得到*****
show;
end;
with TForm3.Create(self) do
begin
Memo1.Lines.Add(IntToStr(i));
name:='drawer'+IntToStr(i);
Memo1.Lines.Add(name);
Memo1.Lines.Add(inttostr(Handle)); //***********************可以得到*****
show;
end;
Cannot assign to a read-only property: 对于Handle:可以读,但不可以写。