Q&A

  • 현재창이 최상위창에서 밀려날때 이벤트
다른창이 최상위 창으로 될때
즉 현재 프로그램이 최상위 있다가 뒤로 밀려날때 발생하는 이벤트가 있을까요?
OnDeactivate, OnHide 같은 이벤트는 발생하지 않네요..
API 에는 있을까요?
2  COMMENTS
  • Profile
    석주현 2007.04.18 21:25
    안녕하세요.

    제가 아는 상훈님이 아닌가 궁금하네요. ^^
    아래에 소스 나가고요. 더 자세히 공부 하시려면 서브 클래싱 쪽을 좀 보시면 아마도 더 재미있을꺼 같습니다.

    <!--CodeS-->
    type
      TForm1 = class(TForm)
      private
        { Private declarations }
        procedure WMActiveApp(var LwMsg: TMessage); message WM_ACTIVATEAPP;
      public
        { Public declarations }
      end;

    var
      Form1: TForm1;

    implementation

    {$R *.dfm}

    { TForm1 }

    procedure TForm1.WMActiveApp(var LwMsg: TMessage);
    begin
      if LwMsg.WParam <> 1 then ShowMessage('1111');
    end;
    <!--CodeE-->
  • Profile
    한상훈 2007.04.19 14:27
    움.. 아는 분이 맞는것 같긴한데요.. 저는 소나기님을 잘 몰라서 죄송합니다. 담번엔 기억하겠습니다.
    친절하게 알려주신 함수는 잘 됩니다. 정말 고맙습니다. ^^