messagedlg()函数 的 问题 !

Question

我把一个窗体的类型属性定义为对话框类型就是该窗体只有一个'关闭按'钮没有最小化和最大化按钮;我在该窗体的一个按钮的单击事件中用了一个messagedlg()函数;
代码如下:
tform3.buttom1clicl();
begin
 if a then
 begin
 messagedlg('您好!',mtinformation,[mbok],0);
 edit1.clear;
 end
else
 begin
edit1.text:='bba';
end;
end;   //a定义为全局变量boolean型
当a为真时窗体会出现messagedlg()函数的对话框可是我在单击上面的ok后该窗体就会关闭!请问怎样才能在单击ok后不关闭该窗体?

Answer 1

//请在form 的onclose事件中定
tform3.buttom1clicl();
begin
 if a then
 begin
 messagedlg('您好!',mtinformation,[mbok],0);
 edit1.clear;
 action := caNone;///  
 end
else
 begin
edit1.text:='bba';
end;
end;   //a定义为全局变量boolean型