是否需要该Form被激活状态或者其他限制条件?在它的父窗体也有相同的message过程的情况下,激发哪一个?或者都激发?

解决方案 »

  1.   

    unit Main;interfaceuses
      Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
      Dialogs, StdCtrls, Unit2;type
      TFrmMain = class(TForm)
      private
        { Private declarations }
      public
        { Public declarations }
        procedure WMLButton(var Msg :TMessage);message WM_LBUTTONDOWN;
      end;var
      FrmMain: TFrmMain;implementation{$R *.dfm}
    procedure TFrmMain.WMLButton(var Msg: TMessage);
    begin
      ShowMessage('鼠标单击');
    end;end.
    自己去试验吧