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

[解决办法]

Delphi(Pascal) code

  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;