在我的 MDI表格(父表格)上,每当我触发创建新的 MDI子表单的命令时,我都会执行这些操作(但它没有'工作):
procedure TfrmMDI.CreateChildForm(const childName: string);
var Child: TfrmChild;
begin
Child := TfrmChild.Create(Application);
Child.Caption := childName;
Child.BorderStyle := bsNone;
end;
我尝试通过对象检查器将 MDI子窗体的边框样式设置为 bsNone 但它不起作用好。
我终于尝试通过运行时设置 MDI Child&#39> 形式BorderStyle但是,它似乎也没有用。
procedure TfrmChild.FormCreate(Sender: TObject);
begin
BorderStyle := bsNone;
end;
有关其他信息,我当前的 MDI子表单如下所示:
我们可能希望将 MDI儿童的BS 设置为 MDI家长的BS :