OnMouseOutみたいな処理

解決

アル 2009-03-21 04:07:36 No: 33734

JavascriptにあるOnMouseOutみたいな処理をさせたいと考えています。

具体的に言うと、
フォームの上のTButtonやTImageにマウスがあるときに、
そのコントロール外へマウスを動かした時に
イベントを受け取りたいわけです。

できれば、フォームに何か仕込むのでなく、
コントロール側で何とかしたいのですが、
いい方法はありませんか。

よろしくお願いします。

Mr.XRAY 2009-03-21 05:02:07 No: 33735

Mr.XARYです．

OnMouseEnter
OnMouseLeave

イベントではタイミングが合いませんか？

procedure TForm3.Button1MouseEnter(Sender: TObject);
begin
Panel1.Caption := '入ったよ!!';
end;

procedure TForm3.Button1MouseLeave(Sender: TObject);
begin
Panel1.Caption := '出たよ!!';
end;

アル 2009-03-21 05:23:10 No: 33736

あれ？ TButtonにMouseLeaveなんてイベントありましたっけ？

使っているのがDelphi7だからないのかな……？

KHE00221 2009-03-21 06:30:55 No: 33737

D7にはないので

procedure CMMouseLeave(var Message: TMessage); message CM_MOUSELEAVE;

して下さい

アル 2009-03-21 07:45:16 No: 33738

なるほど、CM_MOUSELEAVEでトラップすればいいわけですね。

ありがとうございます。

Mr.XRAY 2009-03-21 08:09:03 No: 33739

>使っているのがDelphi7だからないのかな……？

Delphi7でしたか．よく確認もせず，大変失礼致しましたｍ（＿＿）ｍ
たまたまDelphi2007を起動していた時でしたので．