Q&A

  • systemMenu의 close(X)를 클릭시
minimize 되게 하고 싶거든요.
여러가지를 해보아도 그냥 종료만 되네요..
고수님의 방법좀 가르쳐 주세요.

X를 누르면 trayicon으로 가게 하고 싶거든요.

그리고 혹시 진짜 종료시에는 어떻게 해야 하는지도 부탁드립니다..
1  COMMENTS
  • Profile
    무심코 2005.01.25 02:58
    private
        { Private declarations }
        procedure WMSysCommand(var Msg: TWMSysCommand); message WM_SYSCOMMAND;


    procedure TForm1.WMSysCommand(var Msg: TWMSysCommand);
    begin

      if Msg.CmdType = SC_CLOSE then begin
        SendMessage(Application.Handle, WM_SYSCOMMAND, SC_MINIMIZE, 0);
        exit;
      end;

      inherited;
    end;


    나름대로 꽁수를 부려 해 보았는데...일단 minimize는 되네요....
    참고하세요!