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;
要对32的位图进行处理啊,“转换成32位的ICO”
那该怎么办呢?
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;