我有2个窗体,Form1和Form2,如何实现在点击Form1或者Form1上的任何控件时,让Form2关闭?

Question

本帖最后由 wan1680 于 2012-03-25 21:21:19 编辑

Answer 1

如FORM1的onmousedown事件上写下,form2.Close();

Answer 2

因为Form1和其上面的控件都是不确定的,所以无法使用mousedown事件.
有没有什么拦截windows消息的办法可以实现?

Answer 3

  private
    procedure ApplicationMsg(var Msg:tagMSG;var Handled:Boolean);uses unit2;procedure TForm1.ApplicationMsg(var Msg:tagMSG;var Handled:Boolean);
begin
  if (Msg.message=WM_LBUTTONDOWN) and Form2.Showing then
     SendMessage(Form2.Handle,WM_CLOSE,0,0);
end;procedure TForm1.FormCreate(Sender: TObject);
begin
  Application.OnMessage:=ApplicationMsg;
end;

Answer 4

只是测试空窗体的话，就直接隐藏而已
当主程序关闭时再关闭即可
否则就CLOSE