WindowSubClassing之另类运用(之一)

页面导航:首页 > 软件编程 > Delphi > WindowSubClassing之另类运用(之一)

WindowSubClassing之另类运用(之一)

来源: 作者: 时间:2016-02-05 11:47 【

Window SubClassing之另类运用(之一)所谓Window SubClassing,中文通常译为窗口子类化,简单说来就是截获并处理窗口过程的技术。可能很多程序员都已经了解这项技术,并且或多或少在自己
 

Window SubClassing之另类运用(之一)

 

所谓Window SubClassing,中文通常译为窗口子类化,简单说来就是截获并处理窗口过程的技术。可能很多程序员都已经了解这项技术,并且或多或少在自己的程序中使用过它。在微软的MFC类库中就大量使用了Window SubClassing方法,以至于有人说“MFC is about Subclassing”。即使你没有用过,至少你也应该听说过它。所谓另类,有不循常理、不拘一格的意思。我在这里将要描述都可以说是一些“旁门左道”的应用,不过或许能够让你有耳目一新的感觉。

 

我的第一个应用是所谓“延时自动关闭的对话框”。Windows中用来显示信息的MessageBox函数非常简单方便,但是它有一个致命的缺陷,就是除非用户按下某个按钮,否则整个程序的执行都会挂起。这对于无人值守的自动化程序来说是无论如何都不能接受的。如果是在比较依赖于时序的应用程序中(例如多线程程序或者基于定时器的应用),MessageBox还可能严重干扰整个程序的执行流程。为了解决这个问题,自己定义一个新的、能够自动关闭的对话框当然是最直观的做法,但是我发现这也是应用SubClass的一个好地方,因为我们并不需要在UI上花什么功夫,唯一需要做的就是为对话框增加一条WM_TIMER的消息和对应的处理程序就行了。

 

想法虽然简单,实现起来却有一点小小的麻烦。首先指出一点:要实现SubClass,唯一的充分必要条件是我们需要获得某个特定窗口的句柄。就是这个简单的要求,对于MessageBox来说却很棘手,因为它是一个模态对话框,窗口在调用MessageBox之后才建立,而在MessageBox返回的时候就已经撤销了。我们如何获得这个窗口呢?

 

这里的关键在于,在调用MessageBox的同时,系统将把应用程序的主线程挂起,在MessageBox返回后才把控制权交还,所以我们没有获得这个窗口的机会。既然知道了症结所在,解决方案也就来了:主线程虽然挂起了,但是我可以使用子线程,看你能奈我何?

 

方法已经找到,接下来的实现可以说是势如破竹了。首先,声明必须的类型和变量:

type

  TWindowProc = function(AWnd:HWND; uMsg:UINT; wp:WPARAM; lp:LPARAM) : LongInt; stdcall;

 

var

  OldProc : TWindowProc = nil;

 

既然是SubClass,我们免不了要自己写一个窗口过程。唯一需要处理的就是WM_TIMER       消息,在收到这个消息的时候关闭对话框即可:

function NewProc(AWnd:HWND; uMsg:UINT; wp:WPARAM; lp:LPARAM):LongInt;stdcall;

begin

  Result := 0;

  case uMsg of

    WM_TIMER:

      begin

        KillTimer(AWnd, 1);

        PostMessage(AWnd, WM_COMMAND, ANCEL, 0);

      end;

  end;

  if As

Tags:

相关文章

    文章评论

    最 近 更 新
    热 点 排 行
    Js与CSS工具
    代码转换工具
    
    <