0

我有一个带有TPanel. 我也Form2有一个TButton我TPanel小时候展示的。我的意思TPanel是主要形式是Form2. 我使用这些步骤在MainForm OnCreate方法中创建 form2

MainFormOnCreate()

Form2 := TForm2.create(nil)
Form2.Parent := Panel1;
Form2.show;

但问题是，当我访问它上面的按钮时，Form2它什么也没做。例如，当我想禁用按钮时，Form2我使用此方法

主窗体上的按钮2，带有单击事件

btn2OnClick();
Form2.btn.enabled := false;

但它什么也没做。有的朋友说是因为孩子给TPanel它不会收到消息。

所以给我一个解决方案。提前致谢

4

2 回答 2

2

主要问题是，您创建了 2 个TForm2.

你的.dpr文件看起来像这样

begin
  Application.Initialize;
  Application.CreateForm( TForm1, Form1 );
  Application.CreateForm( TForm2, Form2 );
  Application.Run;
end.

创建TForm2in的实例TForm1.OnCreate并将此实例保存到全局变量Form2中后，将创建另一个实例TForm2并将其存储到Form2.

如果TForm1.btn5.OnClick您处理第二个创建的，不可见的TForm2。

解决方案

  • 转到项目/选项->公式并TForm2从自动创建列表中删除
  • TForm2将创建的实例存储TForm1在的私有类字段中TForm1

您的代码应如下所示

.dpr文件：

begin
  Application.Initialize;
  Application.CreateForm( TForm1, Form1 );
  Application.Run;
end.

单元1.pas 

TForm1 = class( TForm )
...
procedure FormCreate( Sender : TObject );
procedure btn2Click( Sender : TObject );
private
  FForm2 : TForm2;
  ...
end;

procedure TForm1.FormCreate( Sender : TObject );
begin
  FForm2 := TForm2.Create( Self );
  FForm2.Parent := Panel1;
  FForm2.Show;
end;

procedure TForm1.btn2Click( Sender : TObject );
begin
  FForm2.btn.Enabled := True;
end;
于 2013-07-20T05:42:23.403 回答
0

试试这个

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ExtCtrls, Unit2;

type
  TForm1 = class(TForm)
    Panel1: TPanel;
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    lForm: TForm;
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
  if Assigned(lForm) then
    TForm2(lForm).Button1.Enabled:= False;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  lForm := TForm2.Create(self);
  lForm.Parent := Panel1;
  lForm.Align:= alClient;
  lForm.show;
end;
于 2013-07-20T12:54:49.870 回答