function WndProc(hWnd : THandle; nMsg : UINT; wParam, lParam : Cardinal) : Cardinal; export; stdcall;
begin
  Result := 0;
  case nMsg of
    WM_LBUTTONDOWN :
      begin
        { »ý·« }
      end;
    WM_LBUTTONUP :
      begin
        { »ý·« }
      end;
    WM_MOUSEMOVE :
      begin
        { »ý·« }
      end;
    WM_SIZE :
      begin
        { »ý·« }
      end;
  else
    DefWindowProc(hWnd, nMsg, wParam, lParam);  
  end;
end;

TWMMouse = packed record
    Msg: Cardinal;
    Keys: Longint;
    case Integer of
      0: (
        XPos: Smallint;
        YPos: Smallint);
      1: (
        Pos: TSmallPoint;
        Result: Longint);
  end;

PMessage = ^TMessage;
  TMessage = packed record
    Msg: Cardinal;
    case Integer of
      0: (
        WParam: Longint;
        LParam: Longint;
        Result: Longint);
      1: (
        WParamLo: Word;
        WParamHi: Word;
        LParamLo: Word;
        LParamHi: Word;
        ResultLo: Word;
        ResultHi: Word);
  end;

procedure WMLButtonDown(var Message: TWMLButtonDown); message WM_LBUTTONDOWN;
procedure WMLButtonDown(var Message: TWMLButtonDown); message WM_LBUTTONDOWN;
procedure WMMouseMove(var Message: TWMMouseMove); message WM_MOUSEMOVE;
procedure WMLButtonUp(var Message: TWMLButtonUp); message WM_LBUTTONUP;
procedure WMCancelMode(var Message: TWMCancelMode); message WM_CANCELMODE;
procedure WMSize(var Message: TWMSize); message WM_SIZE;
procedure WMKeyDown(var Message: TWMKeyDown); message WM_KEYDOWN;
procedure WMChar(var Message: TWMChar); message WM_CHAR;

TControl = class(TComponent)
  protected
    { »ý·« }
    procedure WndProc(var Message: TMessage); virtual;
    { »ý·« }
  end;

{ »ý·« }

procedure TControl.WndProc(var Message: TMessage);
var
  Form: TCustomForm;
begin
  if (csDesigning in ComponentState) then
  begin
    { »ý·« }
  end
  else if (Message.Msg >= WM_KEYFIRST) and (Message.Msg <= WM_KEYLAST) then
  begin
    { »ý·« }
  end
  else if (Message.Msg >= WM_MOUSEFIRST) and (Message.Msg <= WM_MOUSELAST) then
  begin
    { »ý·« }
  end
  else if Message.Msg = CM_VISIBLECHANGED then
    with Message do
      SendDockNotification(Msg, WParam, LParam);
  Dispatch(Message);
end;