//=============================================================================
//  Memo1 の OnMouseLeave イベント処理
//  マウスカーソルがコントロールの領域外に移動すると発生するイベント
//  マウスがキャプチャされている状態 (マウスボタン押下状態 ) の時は発生しない
//  その場合，マウスのボタンを離すとこのイベントが発生する
//=============================================================================
procedure TForm1.Memo1MouseLeave(Sender: TObject);
begin
  Memo1.Lines.Add(InttoStr(Memo1.Lines.Count) + '  Leaved from Memo1 !!');
end;

unit Unit1;

interface

uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, 
  Vcl.Graphics, Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls;

type
  TplMemo = class(TMemo)
  protected
    procedure CMMouseleave(var Message: TMessage); message CM_MOUSELEAVE;
  end;

  TForm1 = class(TForm)
    Memo1: TMemo;
    procedure FormCreate(Sender: TObject);
  private
    { Private 宣言 }
  public
    { Public 宣言 }
    plMemo1 : TplMemo;
  end;

var
  Form1: TForm1;

implementation

uses
  plChgCompo;

{$R *.dfm}

//=============================================================================
//  フォーム生成時の処理
x//=============================================================================
procedure TForm1.FormCreate(Sender: TObject);
begin
  Memo1.ScrollBars := ssVertical;
  // フォーム作成時にコンポーネントの入れ替え
  plMemo1 := TplMemo(ChangeComponent(Memo1, TplMemo));
end;

{ TplMemo }

//=============================================================================
//  TMemo の CM_MOUSELEAVE メッセージ処理
//  マウスカーソルがコントロールの領域外に移動すると送られてくるメッセージ
//  マウスがキャプチャされている状態 (マウスボタン押下) の時は送られてこない
///  その場合，マウスのボタンを離すとこのメッセージが送られてくる
//
//  Delphi 6 等には OnMouseLeave イベントがないのでこのメッセージを使用する
//=============================================================================
procedure TplMemo.CMMouseleave(var Message: TMessage);
begin
  inherited;
  Lines.Add(InttoStr(Lines.Count) + '  Leaved from ' + Name + ' !!');
end;

end.

//=============================================================================
//  Memo1 の OnMouseDown イベント処理
//=============================================================================
procedure TForm1.Memo1MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  // マウスキャプチャを解除
  SetCaptureControl(nil);
end;

//=============================================================================
//  Memo1 の OnMouseLeave イベント処理
//  マウスカーソルがコントロールの領域外に移動すると発生するイベント
//  マウスがキャプチャされている状態 (マウスボタン押下状態 ) の時は発生しない
//  その場合，マウスのボタンを離すとこのイベントが発生する
//=============================================================================
procedure TForm1.Memo1MouseLeave(Sender: TObject);
begin
  Memo1.Lines.Add(InttoStr(Memo1.Lines.Count) + '  Leaved from Memo1 !!');
end;

unit Unit1;

interface

uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, 
  Vcl.Graphics, Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls;

type
  TplMemo = class(TMemo)
  protected
    procedure CMMouseleave(var Message: TMessage); message CM_MOUSELEAVE;
    procedure MouseDown(Button: TMouseButton; Shift: TShiftState; X: Integer;
      Y: Integer); override;
  end;

  TForm1 = class(TForm)
    Memo1: TMemo;
    procedure FormCreate(Sender: TObject);
  private
    { Private 宣言 }
  public
    { Public 宣言 }
    plMemo1 : TplMemo;
  end;

var
  Form1: TForm1;

implementation

uses
  plChgCompo;

{$R *.dfm}

//=============================================================================
//  フォーム生成時の処理
//=============================================================================
procedure TForm1.FormCreate(Sender: TObject);
begin
  Memo1.ScrollBars := ssVertical;
  // フォーム作成時にコンポーネントの入れ替え
  plMemo1 := TplMemo(ChangeComponent(Memo1, TplMemo));
end;

{ TplMemo }

//=============================================================================
//  TMemo の MouseDown メソッド処理
//  マウスボタンを押下すると自動的に実行される (OnMouseDown イベント相当
//=============================================================================
procedure TplMemo.MouseDown(Button: TMouseButton; Shift: TShiftState; X,
  Y: Integer);
begin
  inherited;
  // マウスキャプチャを解除
  SetCaptureControl(nil);
end; 

//=============================================================================
//  TMemo の CM_MOUSELEAVE メッセージ処理
//  マウスカーソルがコントロールの領域外に移動すると送られてくるメッセージ
//  マウスがキャプチャされている状態 (マウスボタン押下) の時は送られてこない
///  その場合，マウスのボタンを離すとこのメッセージが送られてくる
//
//  Delphi 6 等には OnMouseLeave イベントがないのでこのメッセージを使用する
//=============================================================================
procedure TplMemo.CMMouseleave(var Message: TMessage);
begin
  inherited;
  Lines.Add(InttoStr(Lines.Count) + '  Leaved from ' + Name + ' !!');
end;

end.

//=============================================================================
//  マウスカーソルの移動を指定した矩形領域内だけに限定
//  ここではフォームのクライアント領域内だけとする
//=============================================================================
procedure TForm1.Button1Click(Sender: TObject);
var
  LPoint  : TPoint;
  LRect   : TRect;
begin
  // このフォームのクライアント領域をスクリーン座標で取得
  // 一般的には GetWindowRect 関数が使用可能
  LPoint := TPoint.Create(ClientRect.Left, ClientRect.Top);
  LRect  := TRect.Create(ClientToScreen(LPoint), ClientWidth, ClientHeight);

  // マウスカーソルの移動をクリップ
  ClipCursor(@LRect);
end;

//=============================================================================
//  マウスカーソルの移動のクリップを解除
//=============================================================================
procedure TForm1.Button2Click(Sender: TObject);
begin
  ClipCursor(nil);
end;