每日一帖这个画面怎么做?(5分)

当程序一启动,就显示出一个对话框,告诉你每日一帖.
请问这是怎么实现的?

const
CSHOWHINTMSG = WM_USER + 1000;

type
TForm1 = class(TForm)
procedure FormShow(Sender: TObject);
private
procedure DoShowHintForm(var Msg: TMessage); message CSHOWHINTMSG;
public
procedure aaa;
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.DoShowHintForm(var Msg: TMessage);
begin
ShowMessage('aa');
end;

procedure TForm1.FormShow(Sender: TObject);
begin
PostMessage(Self.Handle, CSHOWHINTMSG, 0, 0);
end;


如上面的代码，定义一个处理CSHOWHINTMSG消息的函数,然后在FormShow中调用这个消息，注意使用PostMessage，让其进入消息循环。

上面的兄弟意思错了吧.
每日一帖的做法很多,可以采用ini文件的形式去做.
主窗体创建后,创建信息提示窗体,
在信息提示窗体中读取ini文件,格式如下
[EachDayHint]
EachDayHint1='欢迎使用'
EachDayHint2='谢谢'
....
然后在信息提示窗体中显示出来就OK了.

同一窗体，不同内容，把提示内容做文件里或INI里每天轮换就可以了