不知为什么在WINDOWS,DELPHI对32位的BMP的PATTATE的取得总为‘0’,如何取得呢?
告诉我大侠们??????
因为要对32的位图进行处理啊,“转换成32位的ICO”

解决方案 »

  1.   

    谢谢了
    要对32的位图进行处理啊,“转换成32位的ICO”
    那该怎么办呢?
      

  2.   

    function CreatIconFromBitmap(Source: TBitmap): TIcon;
    var
      IconInfo: TIconInfo;
    begin
      Result := TIcon.Create;
      if Source.Empty then
        exit;
      IconInfo.fIcon := true;
      IconInfo.hbmMask := Source.Handle;
      IconInfo.hbmColor := Source.Handle;
      Result.Handle := CreateIconIndirect(IconInfo);
    end;