Delphi：在 FormShow 中重绘表单

Question

我在 FormMain 中打开 Form2.ShowModal。我希望应用程序在进行一些数据库访问时完整地显示 Form2（这与要显示的新数据无关）。但是，在执行 FormShow 时，只显示了外边框和一些损坏的部分，而 FormMain 的一些损坏的部分则显示出来了。太丑了。

我无法找到一种方法让 Delphi 立即重新绘制表单，然后执行耗时的 MyOpenData 过程。结束 MyOpenData 后一切正常。

procedure TForm2.FormShow(Sender: TObject);
begin
  Invalidate; 
  Refresh;
  MyOpenData; { needs some seconds of database accesses }
end;

替代方案：

procedure TForm2.FormShow(Sender: TObject);
begin
  Invalidate;
  Refresh;
  SendMessage(Handle, wm_paint, 0, 0);
  PostMessage(Handle, wm_OpenMyData, 0, 0); { executes well, but no solution)
end;

这也不起作用。我认为 SendMessage() 等待消息完成。但是在 MyOpenData 之前没有完成绘制。在程序完成之前，表格总是看起来很破损。除此之外，例程执行得很好。我尝试了所有这些命令的组合或单独。

我错过了什么？提前致谢！

如何启动打开表单时需要运行的耗时例程？

（Windows 7 64 位上的 Delphi XE7）

Answer 1

uses
WinApi.Windows;

const
WM_AFTER_SHOW     = WM_USER + 1; // custom message
WM_AFTER_CREATE   = WM_USER + 2; // custom message

private

procedure WmAfterCreate(var Msg: TMessage); message WM_AFTER_CREATE;
procedure WmAfterShow(var Msg: TMessage); message WM_AFTER_SHOW;


procedure TForm1.WmAfterCreate(var Msg: TMessage);
begin
 DoSomeThingAfterCreate();
 ShowMessage('WM_AFTER_CREATE received!');
end;

procedure TForm1.WmAfterShow(var Msg: TMessage);
begin
  DoSomeThingAfterShow();
  ShowMessage('WM_AFTER_SHOW received!');
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
 // Some code...
PostMessage(Self.Handle, WM_AFTER_CREATE, 0, 0);
end;

procedure TForm1.FormShow(Sender: TObject);
begin
 // Some Code...
 PostMessage(Self.Handle, WM_AFTER_SHOW, 0, 0);
end;

Answer 2

IMO，这里没有足够的信息来提出任何具体的建议。

我猜 MyOpenData() 设置了 Form2 所依赖的某种数据状态。如果是这种情况，那么您可能希望在调用 Form2.ShowModal 之前调用它。在任何情况下，您都不应该在 OnShow 处理程序中调用 invalidate 或 refresh，因为它们都会触发 OnShow。

观看我为 CodeRage 9 制作的视频，标题为“你最近接受你的软件管道工了吗？” （在 YouTube 上搜索“编码软件管道工”）因为这正是我在此视频中要解决的主题——初始化表单和对象所涉及的大量问题，以及特定于表单的时间问题。

我没有专门讨论数据感知控件的问题，但它们几乎相同。从依赖于该状态的表单内部设置 DB 状态以正确初始化自身可能会出现问题。通过首先进行依赖初始化，然后将该依赖项注入表单，可以轻松避免固有的竞争条件。

如果涉及 DB，则必须将 SOMETHING 注入表单：要么是 DB 引用（通常通过全局变量）；要么一个表（全局变量或表单变量）；或当前记录（通常是表单变量）。使用 DB 感知控件的好处是初始化始终是隐式的，您不必注入任何东西。使用 DB 感知控件的坏处是，初始化始终是隐式的，并且您无法对初始化序列进行显式控制。通过对数据库依赖项进行显式注入，您可以回避时间问题。这需要更多的工作（不多），但您不必处理这样的事情。

在任何情况下，如果表单需要当前记录来初始化其字段，则在选择记录之前您无法显示表单，并且您不能将记录选择作为表单初始化过程的一部分而不冒险并发问题。可以做到，但你把它弄得一团糟。

Answer 3

这应该可行。

• 在表单上放置一个计时器，并在 Object Inspector 中将 Enabled 设置为 False。
• 在 FormCreate 中将 Enabled 设置为 True
• 在 OnTimer 事件中放入您的代码。

您必须猜测 Interval 值。如果 FormCreate 中的组件或代码不多，那么 100 毫秒就足够了。否则放入有效的 - 500 甚至 1000 毫秒。