请问怎么解决这样的问题呀？？？ ( 积分: 20 )

有谁知道下面的问题要怎么解决：
我新建了一个Frame，在这个Frame上有许多个Edit，我想在Frame一被显示（调用）时，edit里就显示数据库的一条记录的各字段的内容？？但是Frame又没有ONShow事件，要怎么处理呢？？？

有谁知道下面的问题要怎么解决：
我新建了一个Frame，在这个Frame上有许多个Edit，我想在Frame一被显示（调用）时，edit里就显示数据库的一条记录的各字段的内容？？但是Frame又没有ONShow事件，要怎么处理呢？？？

截获CM_SHOWINGCHANGED消息：
unit Unit2;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs;
type
TFrame2 = class(TFrame)
procedure CMShowingChanged(var Message: TMessage);
message CM_SHOWINGCHANGED;
private
{ Private declarations }
public
{ Public declarations }
end;

implementation
{$R *.DFM}
{ TFrame2 }
procedure TFrame2.CMShowingChanged(var Message: TMessage);
begin
if self.Showing then
showMessage('cc');
end;

end.

To TYZhang:我试过你的方法了，不行！在第一次显示的时候是可以的，可是关闭时会出现错误，再打开时也会出错！

应该可以使用Frame的container 的事件进行处理，楼主可以试试看！[]

我现在用建立实例时直接赋值的方法解决了!不过不知道大家还有什么好一点的方法呢??