我用到了:setMenuItemBITmaps API
具体代码我是这样实现的:
produce TForm1.Form1Create(Sender:Tobject)
var
bmp1,bmp2:Tbitmap
begin
bmp1:=Tbitmap.Create;
bmp2:=Tbitmap.Create;
bmp1.LoadFromFile('e:\check.bmp');
bmp2.LoadFromFile('e:\uncheck.bmp');
setMenuItemBITmaps(File.Handle,check1.command,MF_BYCOMMAND,bmp1.Handle,bmp2.Handle);
end;produce TForm1.check1click(sender:TObject)
begin
check1.checked:=not check1.checked;
end
可是为什么不显示位图呢?
具体代码我是这样实现的:
produce TForm1.Form1Create(Sender:Tobject)
var
bmp1,bmp2:Tbitmap
begin
bmp1:=Tbitmap.Create;
bmp2:=Tbitmap.Create;
bmp1.LoadFromFile('e:\check.bmp');
bmp2.LoadFromFile('e:\uncheck.bmp');
setMenuItemBITmaps(File.Handle,check1.command,MF_BYCOMMAND,bmp1.Handle,bmp2.Handle);
end;produce TForm1.check1click(sender:TObject)
begin
check1.checked:=not check1.checked;
end
可是为什么不显示位图呢?
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货