使用帧到队列的代码

Question

所以我有一个运行模拟的程序

当您选择模型时，它会打开一个屏幕，您可以选择“运行模型”，这将打开另一个屏幕，您可以在其中按下开始按钮

我想创建一个队列，以便用户可以选择多个模型，程序将在没有用户输入的情况下运行这些屏幕

所以，我正在调用这样一个框架：

ProgForm := TProgressForm.Create(Self, FModItem);
Self.Visible := False;
try
 ProgForm.ShowModal;

现在，我可以通过在Create的末尾添加一行来运行程序来运行模拟，但问题是它在模拟结束之前不显示框架（因为Create构造函数不是直到我调用的运行功能完成后才结束。

我不知道该怎么做，因为如果我没有在我正在调用的Create函数中添加任何内容，似乎没有任何其他方法可以自动调用任何函数，但是如果我做某事在“创建”中，直到“创建完成”才显示框架

由于

Answer 1

我建议阅读：

http://delphi.about.com/od/formsdialogs/a/delphiformlife.htm

您可以使用表单的OnShow事件在表单完全绘制在屏幕上之前执行操作。
在绘制表单时，OnActivate通常是处理内容的最佳位置。

<强>顺便说一句
你说框架，但在你的代码中它显示TProgressForm所以我猜你的意思是Form里面有Frame。