我在一个VC工程下,PostMessage出来一个消息,当用HWND_BROADCAST广播时,我用VC写的窗口可以收到这个消息,但是delphi中的窗口不行,有无人知道到底是怎么回事,要怎样处理才可以?

解决方案 »

  1.   

    怎么收不到?type
      TForm1 = class(TForm)
        Button1: TButton;
        ApplicationEvents: TApplicationEvents;
        procedure Button1Click(Sender: TObject);
      private
        { Private declarations }
      protected
        procedure WndProc(var Message: TMessage); override;
      public
        { Public declarations }
      end;var
      Form1: TForm1;implementationuses Unit2;{$R *.dfm}procedure TForm1.Button1Click(Sender: TObject);
    begin
      SendMessage(HWND_BROADCAST, $FFFF, 0, 0);
    end;procedure TForm1.WndProc(var Message: TMessage);
    begin
      if Message.Msg = $FFFF then ShowMessage('HWND_BROADCAST');
      inherited;
    end;————————————————————————————————————
    宠辱不惊,看庭前花开花落,去留无意;毁誉由人,望天上云卷云舒,聚散任风。
    ————————————————————————————————————