如何自定义 自写控件在 Delphi面板上 的图标？

Question

如题。
谢谢大家了。

Answer 1

百度一下吧，图标是定义在与控件单元同名的.dcr文件里的

Answer 2

SetButtonPicture(BitBtnUpgrade,'bmpSetValid');//第一个参数是要加图标的控件Name,第二  参数是要加的图片Nameprocedure TFrmRoot.SetButtonPicture(AButton: TSunButton;
  const APictureName: String);
begin
      AButton.Glyph.Handle := LoadMyBitmap(APictureName);
end;function LoadMyBitmap(const AName: String): HBitMap;
var
    AHandle: HBitMap;
begin
  
  if (HInstResPack=0) then begin
    Result := 0;
  end else begin
    AHandle := LoadBitmap(HInstResPack,PChar(AName));
    if AHandle=0 then begin
      Result := LoadBitmap(HInstResPack,PChar('bmpDefault'));
    end else begin
      Result := AHandle;
    end;
  end;
end;

Answer 3

Result := LoadBitmap(HInstResPack,PChar('bmpDefault'));//这里面是如果你没有指定的图片时,有个默认的图片,当然这也是自己设置的

Answer 4

to zhangl_cn(和尚-修行)
谢谢，成功了。
也谢谢 sunningbaby() 的热心回复。