delphi的消息处理机制TWinControl.WndProc

最新推荐文章于 2024-08-14 18:23:16 发布

苏生米沿

最新推荐文章于 2024-08-14 18:23:16 发布

阅读量6.3k

点赞数 1

分类专栏： Delphi 文章标签： delphi user

本文链接：https://blog.csdn.net/sushengmiyan/article/details/7380438

版权

本文深入探讨Delphi中TWinControl.WndProc函数在消息处理机制中的作用，揭示其逐级调用的过程，并分享了该函数的源代码，帮助开发者理解Delphi用户界面消息的处理流程。

摘要由CSDN通过智能技术生成

delphi在处理消息的时候是逐级调用的，最基础的算是 TWinControl.WndProc函数了，下面给出了这个函数的源代码。

procedure TWinControl.WndProc(var Message: TMessage);
var
  Form: TCustomForm;
  LMouseEvent: TTrackMouseEvent;
  P: TPoint;
  Target: TControl;
begin
  case Message.Msg of
    CM_UNTHEMECONTROL:
      if (csDesigning in ComponentState) and ThemeServices.ThemesAvailable then
      begin
        SetWindowTheme(Handle, ' ', ' ');
        SetWindowPos(Handle, 0, 0, 0, 0, 0, SWP_NOMOVE or SWP_NOSIZE or SWP_NOZORDER or SWP_NOACTIVATE or SWP_SHOWWINDOW or SWP_FRAMECHANGED);
      end;
    CM_SETACTIVECONTROL:
      begin
        Form := GetParentForm(Self);
        if (Form <> nil) and (Form <> Self) then
          Form.Perform(CM_SETACTIVECONTROL, Message.WParam, Message.LParam);
      end;
    WM_SETFOCUS:
      begin
        Form := GetParentForm(Self);
        if (Form <> nil) and (not (csDesigning in Form.ComponentS