kiki wrote:

> 마우스 포인트가 어느 특정 판넬 안에 들어가게 되면 거기에 따른 이밴트를

>

> 줄려고 하는디... 어케 해야 하는지...

>

> 판넬 안에 마우스 포인트가 있으면 판넬 사용코

>

> 판넬안에 없으문 판넬을 Visible 할라고 하는데

>

> 이거 어케 해야 하는지...

///////////////////////////////////////////////////////////////

아래처럼 Message사용은 게시판에 많이 나오거든요,

그러나 Visible을 끄면 그 컴포넌트는 사용불가합니다.

그안에 컴포넌트들을 끄시고 판넬은 바탕화면과 즉 부모와 같은색으로하시면 될거같습니다.

==============================================================

unit Unit1;



interface



uses

Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,

ExtCtrls;



type

TForm1 = class(TForm)

Panel1: TPanel;

private

{ Private declarations }

procedure WndProc(var Message: TMessage); override;

public

{ Public declarations }

end;



var

Form1: TForm1;



implementation



{$R *.DFM}

procedure TForm1.WndProc(var Message: TMessage);

begin

if Message.LParam = Longint(Panel1) then begin

if (Message.Msg = CM_MOUSELEAVE) then

Panel1.Caption := '마우스가 떠날때';

if (Message.Msg = CM_MOUSEENTER) then

Panel1.Caption := '마우스가 들어올때';

end;

inherited WndProc(Message);

end;

end.