我已经创建了一个承载一个或多个“子”窗体的窗体。在我的编辑模式下,每个子窗体都会显示其边框和标题栏,允许移动和调整大小(有点像以前的MDI应用程序)。在我的编辑模式之外,边框消失,子窗体固定在适当的位置。对于我的简单演示,我这样创建子窗体:
代码语言:javascript运行复制procedure TForm1.Button1Click(Sender: TObject);
var
Frm : TForm;
begin
Frm := TForm3.Create( Self );
Frm.Parent := Self;
Frm.Visible := True;结果是如下所示的布局:
我注意到子窗体中的编辑控件从不处于活动状态。我想有一个‘点击’窗体显示一个活动的标题栏颜色,就像活动的应用程序移动时,点击。我猜想我的“僵尸”行为的孩子形式是因为他们是不活跃的,但试图做的事情,如ChildForm.SetFocus什么也不做。
我需要做什么才能激活这些编辑控件并将其中一个窗体显示为“选中”?
(如果可能的话,我真的很想“选择”多个表单)