我在Delphi 10中编写了以下代码:
FExportWizardFolderSelectionForm := TExportWizardFolderSelection.Create(nil);
FExportWizardFolderSelectionForm.Parent := tabSheetFolderSelection;
FExportWizardFolderSelectionForm.Align := alClient;
FExportWizardFolderSelectionForm.BorderStyle := bsNone;
FExportWizardFolderSelectionForm.Visible := False;
此代码适用于Delphi 2006,但在Delphi 10中,Form显示在Tabsheet之外。在不更改代码的情况下,它在两个版本中的工作方式都不同。
在Delphi 10中正确运行此表单需要哪些修改/附加代码?
答案 0 :(得分:1)
唯一合理的解释是您将nil
指定为表单的Parent
。大概是因为tabSheetFolderSelection
是nil
。
首先进行一些调试以确认该假设。然后,您需要检查其余代码,以了解tabSheetFolderSelection
为nil
的原因。
答案 1 :(得分:-3)
在设计模式下为FExportWizardFolderSelectionForm表单设置BorderStyle属性:= bsSingle