小编Owe*_*wen的帖子

Delphi从子表单更新父表单控件

从表单中,我创建并显示第二个表单.从第二种形式我想更新第一个窗体上的控件.但我违反了访问权限.我可以使用autocreate中的表单来处理它,但是当我使用create方法创建表单时,我得到了违规.

以下是一个例子.如果我在autocreate中使用表单11运行它,它可以工作(我更新第一个表单中的按钮标题).但是,如果在单元10中,如果我注释掉form11.show;,并且我取消注释创建和节目,然后从自动创建中取出Form11,则会出现访问冲突.

问题 - 当我使用create方法创建表单时,如何从显示的表单更新父表单.

Unit10

unit Unit10;
interface
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;
type
  TForm10 = class(TForm)
     Button1: TButton;
     procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
  Form10: TForm10;
implementation
uses Unit11;
{$R *.dfm}
procedure TForm10.Button1Click(Sender: TObject);
var
  fForm     : TForm11;
Begin
//        fForm := Form11.Create(Self);  //This and next line give me access violation
//        fForm.Show;           //   with form11 out of autocreate
   form11.show;            //This works with …
Run Code Online (Sandbox Code Playgroud)

delphi

-1
推荐指数
1
解决办法
1559
查看次数

标签 统计

delphi ×1