Question

delphi form.parent 焦点

当： panel.parent := form1; form2.parent := panel;时候，为什么 form2.Tedit 不能写内容?听说是 form2 没有获得 焦点。请问怎样解决问题，能让 form2.Tedit 写。

Answer 1

unit Unit1;interfaceuses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, ExtCtrls,StdCtrls;type
TForm1 = class(TForm)
procedure FormCreate(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;var
Form1: TForm1;implementationuses Unit2;{$R *.dfm}procedure TForm1.FormCreate(Sender: TObject);
var
panel : TPanel;
Myfrm : TForm;
MyEdit :TEdit ;
begin
//创建一个panel
panel := TPanel.Create(Self);
panel.Parent := Self;
panel.Height := 300;
panel.Width := 300;
//创建子form2
Myfrm := TForm.Create(panel);
Myfrm.Caption := 'Sub Form'
Myfrm.Parent := panel;
Myfrm.Align := alClient;
Myfrm.Show;
//创建子form中的edit
MyEdit := TEdit.Create(Myfrm);
MyEdit.Parent := Myfrm;
end;end.

Answer 2

你试着在form2.Tedit上点右键，看看是不是可以编辑了？