Delphi窗体显示后弹出一个对话框的方法

今天要实现一个功能就是delphi窗体显示后弹出一个模式对话框，一开始就在formshow方法中加入弹出对话框的方法，没想到居然先弹出对话框而没有弹出窗体，郁闷良久，采用在formshow时发消息的方法实现该功能。后来仔细思考了这种情况下的实现方案，这个简单的问题应该有两种实现方法：1.formshow最后发一个消息postmessage，相应消息处理函数接收到该消息后弹出要求的对话框；这也是我今天采用的方案，很成功；2.采用计时器的方式实现。今天发现在一开始先弹出模式对话框再显示窗体的情况下，在弹出对话框后计时器内过程就开始执行；但只有处理完弹出对话框后才能真正显示窗体。