如何建立一个类似messagebox窗体性质?(50分相送)

Question

在使用此窗体时,其它打开的窗体都不能激活,一定要关闭此窗体后才行。
最好有一段原码 。

Answer 1

可以这样：var
  formbox: tFormbox;
begin
  try
    formbox := tFormbox.Create(Application); //创建
    formbox.showmodal;//显示  finally
    formbox.free;//释放
    formbox := nil;
  end
end;

Answer 2

也可以这样
var
  formbox: tFormbox;
begin
  try
    formbox := tFormbox.Create(nil); //创建
    formbox.showmodal;//显示  finally
    formbox.free;//释放
    formbox := nil;
  end
end;