Delphi 中动态创设窗体件 Edit.text 赋值
Delphi 中动态创建窗体件 Edit.text 赋值
Form1 fsMDIChild 动态创建 Create(Application);
包含 一个 Edit, 一个 Button
点击 Button, Form2.showmodal
Form2 fsNormal 程序开始时就创建(没有从Project --> option 的左侧列表删除)
包含 一个 Edit, 一个 Button
点击 button
Form1.edit.text = self.edit.text;
self.close;
出错, 类似内存地址错误。
将如 form1 程序开始时创建,则没有错误,form1.text 被赋值
------解决方案--------------------
fsMDIChild窗体需要有另一外窗体是fsMDIForm的才能创建
------解决方案--------------------
Form1创建没?
if Assigned(Form1) then
Form1.edit.text = self.edit.text
Form1 fsMDIChild 动态创建 Create(Application);
包含 一个 Edit, 一个 Button
点击 Button, Form2.showmodal
Form2 fsNormal 程序开始时就创建(没有从Project --> option 的左侧列表删除)
包含 一个 Edit, 一个 Button
点击 button
Form1.edit.text = self.edit.text;
self.close;
出错, 类似内存地址错误。
将如 form1 程序开始时创建,则没有错误,form1.text 被赋值
------解决方案--------------------
fsMDIChild窗体需要有另一外窗体是fsMDIForm的才能创建
------解决方案--------------------
Form1创建没?
if Assigned(Form1) then
Form1.edit.text = self.edit.text