unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls;
 
type
  TForm1 = class(TForm)
    Memo1: TMemo;
  private
  { Private declarations }
    procedure CMMouseEnter(var msg: TMessage); message CM_MOUSEENTER;
    procedure CMMouseLeave(var msg: TMessage); message CM_MOUSELEAVE;
  public
  { Public declarations }
end;
 
var
  Form1: TForm1;
 
implementation
 
{$R *.DFM}
 
 
procedure TForm1.CMMouseEnter(var msg: TMessage);
begin
  if msg.lparam = 0 then
    memo1.Lines.add('Entered ' + Name)
  else
    memo1.Lines.add('Entered ' + TControl(msg.lparam).Name);
end;
 
 
procedure TForm1.CMMouseLeave(var msg: TMessage);
begin
  if msg.lparam = 0 then
    memo1.Lines.add('Left ' + Name)
  else
    memo1.Lines.add('Left ' + TControl(msg.lparam).Name);
end;
 
end.