delphi7 编程问题

在点击后会弹出下面的对话框

退出按钮的程序如下

procedure TForm3.Button3Click(Sender: TObject);
 begin
  Form1.ShowModal;
 end;

求解决方法！！！！！急等！！！！

追问：谢谢了，那还有一个问题。是打印预览按钮，程序如下
procedure tform4.button2click(sender:tobject)
begin
form5.preview;
end;
但是显示不出表格啊,求解?手机打的,原谅。。。。
FORM5里就是一个datasource和一个table相关联。

答案：
在单击按钮之前 Form1已经显示了是吗？
你看你Form1的visible属性是不是为True？ 设置为False再试下。用ShowModal要确保该窗口未打开
 
 

上一个：提示 - 搜搜问问
下一个：delphi串口编程 实现数据发送