ＶＢでいうとこのマウスアウトイベントを実現するためには？ (ID:17975)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文

例えばです．新規のプロジェクトを作成して(新規が重要!!!)
Panelを一つ配置して(なるべく上の方)以下のコードを実行してみて下さい．
FormのOnCreateはオブジェクトインスペクタで作成，他は，private部に
コードを書いて，[Shift]+[Ctrl]+[C]で実現部作成後，コードをコピペ．
(まるっきりコピペも可)

# きっとVBでは簡単なんでしょうね．

unit Unit1;

interface

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

type
  TMyMemo = class(TMemo)
  private
    procedure CMMouseEnter(var Msg: TMessage); message CM_MOUSEENTER;
    procedure CMMouseLeave(var Msg: TMessage); message CM_MOUSELEAVE;
  end;

TForm1 = class(TForm)
    Panel1: TPanel;
    procedure FormCreate(Sender: TObject);
  private
    { Private 宣言 }
    AMyMemo : TMyMemo;
    procedure CMMouseEnter(var Msg: TMessage); message CM_MOUSEENTER;
    procedure CMMouseLeave(var Msg: TMessage); message CM_MOUSELEAVE;
  public
    { Public 宣言 }
  end;

var
  Form1: TForm1;

implementation

uses DebugWndUnit;

{$R *.DFM}

{ TForm1 }

procedure TForm1.FormCreate(Sender: TObject);
begin
     AMyMemo:=TMyMemo.Create(Self);
     AMyMemo.Parent:=Self;
     AMyMemo.Left:=100;
     AMyMemo.Top :=100;
end;

procedure TForm1.CMMouseEnter(var Msg: TMessage);
begin
     Panel1.Caption:='フォームに来た';
end;

procedure TForm1.CMMouseLeave(var Msg: TMessage);
begin
     Panel1.Caption:='メモに行ってしまった';
end;

{ TMyMemo }

procedure TMyMemo.CMMouseEnter(var Msg: TMessage);
begin
     Self.Lines.Add('メモに来た');
end;

procedure TMyMemo.CMMouseLeave(var Msg: TMessage);
begin
     Self.Lines.Add('メモから逃げた');
end;

end.

←解決時は質問者本人がここをチェックしてください。

戻る