아래 소스를 참조하세요..



From 류..





procedure TForm1.WMSysCommand(var Msg: TWMSysCommand);

begin

Case Msg.CmdType of

SC_MINIMIZE : ShowMessage('폼의 최소화');

SC_CLOSE : Begin

ShowMessage('폼닫기');

Close;

End;



Else Inherited;

End;

end;







youngae wrote:

> public

> procedure WMSysCommand(var Msg: TWMSysCommand); message WM_SYSCOMMAND;

>

> { Public declarations }

> end;

>

>

> implementation

>

>

> {$R *.DFM}

> procedure TfrmMain.WMSysCommand;

> begin

> if (Msg.CmdType = SC_MINIMIZE) then

> ShowMessage('폼의 최소화');

>

>

> //만일 최대화때 잡아 챌려면 -- > (Msg.CmdType = SC_MAXIMIZE)

> if (Msg.CmdType = SC_CLOSE) then

> showmessage('폼닫기');

> //DefaultHandler(Msg);

> end;

>

> 여기서요 마우스가 안먹어요...타이틀바에서 움직이려고 하면 움직이질 않거든요...

> 어떻게 해야 할지 아무래도 WMSysCommand가 이벤트를 가로체고 있는거 같은데...

> 해결책이 없을까요???

> 최용일님이 쓰신걸 봤는데 이거에 대한 문제는 없었나봐요...왜 저만 이런 문제가...