2010世界杯主题曲_世界杯非洲预选赛 - fsyxyy.com

如何创建包含多个“子”窗体的delphi窗体,这些窗体可以移动/调整大小并显示为激活状态

我已经创建了一个承载一个或多个“子”窗体的窗体。在我的编辑模式下,每个子窗体都会显示其边框和标题栏,允许移动和调整大小(有点像以前的MDI应用程序)。在我的编辑模式之外,边框消失,子窗体固定在适当的位置。对于我的简单演示,我这样创建子窗体:

代码语言:javascript运行复制procedure TForm1.Button1Click(Sender: TObject);

var

Frm : TForm;

begin

Frm := TForm3.Create( Self );

Frm.Parent := Self;

Frm.Visible := True;结果是如下所示的布局:

我注意到子窗体中的编辑控件从不处于活动状态。我想有一个‘点击’窗体显示一个活动的标题栏颜色,就像活动的应用程序移动时,点击。我猜想我的“僵尸”行为的孩子形式是因为他们是不活跃的,但试图做的事情,如ChildForm.SetFocus什么也不做。

我需要做什么才能激活这些编辑控件并将其中一个窗体显示为“选中”?

(如果可能的话,我真的很想“选择”多个表单)

扫码点餐软件哪个很好用?探讨不同平台的优缺点与用户体验!
2888是什么意思?简单几句话让你明白!


最新发表

友情链接