回答网友的问题：delphi可视化控制如何在win32 API创建的窗口程序中通过代码引用使用

因子

A：delphi可视化控制如何在win32 API创建的窗口程序中通过代码引用使用？

俺：每个字俺都认识，但是连在一起俺不懂。

A：纯API 创建的窗体上 ，不能直接拖控件。

俺：可以啊。可以用容器。用Windows.SetParent

A：。。。。。。。。这个不是简单的。！@#￥！@#￥%￥#@#￥%。

俺：你可以百度啊，有代码。

A：@#￥！@#￥%￥#@#￥%。

俺：我给你百度个代码。

结果

我把百度的代码发给了网友，网友没仔细看代码，就说不对。我让对方单步跟踪一下，是不是符合他的要求。这样对方仔细看了一遍，才回复俺是符合要求的。

VCL的窗体  和 纯API的创建的窗体 都有句柄，其实没有太多的不同，两者都有句柄。有了句柄就可以随便用，甚至可以跨进程。例如可以把一个delphi的控件，Window.SetParent到另外一个进程的c++写的窗体上。做系统集成时经常这么干，当客户要在某个系统上加个显示或者按钮时。最常见就是，医院的 排队叫号系统。和其他的系统集成时，往往在其他系统的窗体上找个位置，加2个按钮（ “过号”，“下一个”）。

俺也不知道那个网友，为啥一定要  纯API的创建的窗体。对于这种写法，我不排斥 也不提倡。我感觉一般用 IDE 工具创建的窗体就很好。Delphi C# VC VB PB 等等 这些开发工具都很好啊，平时真的没啥必要 用纯Windows API 创建窗体，又不是用记事本写程序。当然有些地方 为了有个消息处理，用API 创建个 窗体比较方便。例如 SPCOMM 、ICS 的源码里，就有纯Windows API 创建的窗体，但是那些都是为了 消息循环 和 用消息触发事件 或者 实现业务流程。 

代码

俺百度了 纯 Windows API 创建窗体，然后加了几行代码（Windows.SetParent）

在 消息循环 的 WM_CREATE 中加了 Windows.SetParent

在 消息循环 的 WM_DESTROY 中加了 Free

function MyWinProc(hWnd:THandle;uMsg:UINT;wParam,lParam:Cardinal):Cardinal;export;stdcall;
var
  hdca,hdcb:THandle;         //设备描述表句柄.
  rect:TRect;                //矩形结构.
  font:HFont;
  ps:TPaintStruct;           //绘图结构.
begin
  result:=0;
  case uMsg of
    WM_PAINT:
      begin
        hdca:=BeginPaint(hWnd,ps);
        SetBkMode(hdca, Transparent);
        SetBkColor(hdca,GetBkColor(hdca));
        GetClientRect(hWnd,rect);      //获取窗口客户区的尺寸.
        DrawText(hdca,Pchar(hellostr),-1,rect,DT_SINGLELINE or DT_CENTER or DT_VCENTER);
//      TextOut(hdc,100,40,hellostr,Length(hellostr));
        EndPaint(hWnd,ps);
      end;
    WM_CREATE:
      begin
        hdcb  := GetDC(hWnd);
        font  := CreateFont(45, 0, 0, 0, FW_normal, 0, 0, 0, ansi_charset, out_default_precis, clip_default_precis,
        default_quality, 34, PChar('Arial'));
        SelectObject(hdcb, font);
        ReleaseDC(hWnd, hdcb);

        Form1:=TForm1.Create(nil);
        windows.SetParent(form1.Handle,hWnd)  ;
        form1.Visible:=true;
        form1.Animate1.Active:=true;
        form1.Update;
        form1.SetFocus;
      end;
    WM_DESTROY:
      begin
        Form1.free;
        PostQuitMessage(0)
      end;
    else
//使用缺省的窗口消息处理函数.
      result:=DefWindowProc(hWnd,uMsg,wParam,lParam);
    end;
end;

begin
  CoInitialize(nil);
  hInst:=GetModuleHandle(nil); // get the application instance
  WinClass.cbSize:=SizeOf(TWndClassEx);
  WinClass.lpszClassName:='MyWindow';         //类名.
  WinClass.style:=CS_HREDRAW or CS_VREDRAW or CS_OWNDC;
  WinClass.hInstance:=hInst;              //程序的实例句柄.  //设置窗口消息处理函数.
  WinClass.lpfnWndProc:=@MyWinProc;           //窗口过程.
  WinClass.cbClsExtra:=0;                     //以下两个域用于在类结构和Windows内部保存的窗口结构
  WinClass.cbWndExtra:=0;                     //中预留一些额外空间.
  WinClass.hIcon:=LoadIcon(hInstance,MakeIntResource('MAINICON'));
  WinClass.hIconsm:=LoadIcon(hInstance,MakeIntResource('MAINICON'));
  WinClass.hCursor:=LoadCursor(0,IDC_Arrow);
//GetStockObject 获取一个图形对象,在这里是获取绘制窗口背景的刷子,返回一个白色刷子的句柄.
  WinClass.hbrBackground:=HBRUSH(GetStockObject(white_Brush));
  WinClass.lpszMenuName:=nil;                 //指定窗口类菜单.

//向Windows 注册窗口类.
  if RegisterClassEx(WinClass)=0 then
  begin
    MessageBox(0,'Registeration Error!','SDK/API',MB_OK);
    Exit;
  end;

//建立窗口对象.
  hWnd:=CreateWindowEx(
                 WS_EX_OVERLAPPEDWINDOW,                 //扩展的窗口风格.
                 WinClass.lpszClassName,                 //类名.
                 'Hello Window',                         //窗口标题.
                 WS_OVERLAPPEDWINDOW,                    //窗口风格.
                 CW_USEDEFAULT,                          //窗口左上角相对于屏幕左上角的初始位置x.
                 0,                                      //....右y.
                 CW_USEDEFAULT,                          //窗口宽度x.
                 0,                                      //窗口高度y.
                 0,                                      //父窗口句柄.
                 0,                                      //窗口菜单句柄.
                 hInst,                                  //程序实例句柄.
                 nil);                                   //创建参数指针.
  if hWnd<>0 then
     begin
       ShowWindow(hWnd,SW_SHOWNORMAL);        //显示窗口.
       UpdateWindow(hWnd);                    //指示窗口刷新自己.
       SetWindowPos(hWnd, HWND_TOPMOST, 0, 0, 0, 0, SWP_NOMOVE + SWP_NOSIZE); 
     end
  else
     MessageBox(0,'Window not Created!','SDK/API',MB_OK);

 ; 
//主消息循环程序. 
  while GetMessage(Msg,0,0,0) do
  begin
    TranslateMessage(Msg);                   //转换某些键盘消息.
    DispatchMessage(Msg);                    //将消息发送给窗口过程.
  end;

end.