Delphi背后---初学者参考之二(2)[4]

[入库:2005年8月18日] [更新:2007年3月24日]

本文简介:选择自 huojiehai 的 blog

  dc: hdc;

begin

  if (visible or (csdesigning in componentstate) and not (

csnodesignvisible in controlstyle)) and (parent <> nil) and

    parent.handleallocated then

    if csopaque in controlstyle then

    begin

//直接调用user32.dllgetdc

      dc := getdc(parent.handle);

      try

        //直接调用gdi32.dllintersectcliprect

        intersectcliprect(dc, left, top, left + width, top +

height);

                // parent.paintcontrols调用大量的api

        parent.paintcontrols(dc, self);

      finally

本文关键:VCL、API、COM、嵌入式汇编语言
 

本站最佳浏览方式为 分辨率 1024x768 IE 6.0(或更高版本的 IE浏览器)

go top