这样的提示框如何实现？

Question

我在连接网络需要一段时间，要求在连接过程中提示“正在连接网络，请等待....”，在连接成功后要能自动关闭此提示，如何实现这样的提示框（要求不能用窗体及控件），很急！！！！

Answer 1

var
   p: TPanel;
begin
   p := TPanel.Create(nil);
   p.Parent := Form1;
   if 还没有连接完成 then
        p.Caption := '正在连接网络，请等待....'
   else
   begin
        p.Caption := '已经连接成功!';
        p.Free;
   end;
end;