TMessage для кнопки

[spamer]

Народ ну подскажет кто то ?

[Mixasik]

Да вроде бы одинаковые.

[Stilet]

И какая разница тогда, использовать компонент ApplicationEvents или писать как в первом способе?

Во-первых ApplicationEvents невизуальный.
Во-вторых ApplicationEvents предоставляет возможность определить код отработки всех сообщений в одной процедуре.
Я лично предпочитаю первый вариант так как там могу четко разграничить действия и указать для конкретного сообщения конкретные параметры
Например:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TButton=class(StdCtrls.TButton)
   procedure mm(var m:TWMMouseMove); message WM_MouseMove;
  end;
  TForm1 = class(TForm)
    Button1: TButton;
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

{ TButton }

procedure TButton.mm(var m: TWMMouseMove);
begin
 form1.Caption:=inttostr(m.XPos)+' '+inttostr(m.YPos);
end;

end.

Обрати внимание - для обработки сообщений делфи имеет соответствующие им структуры, так что и выдирать из WPAram и LParam не придется. ТАк что рекомендую первый вариант

[0nni]

Разница в том что ApplicationEvents.onMessage получает сообщения от всех окон в приложении.
А обработка обработчик сообщений визуальных компонентов получает конкретное сообщение конкретного окна (окон одного класса).

[spamer]

Stilet, 0nni спасибо за пояснения.