如何自定义 自写控件在 Delphi面板上 的图标？
如题。
谢谢大家了。

[解决办法]
百度一下吧，图标是定义在与控件单元同名的.dcr文件里的
[解决办法]
SetButtonPicture(BitBtnUpgrade, 'bmpSetValid ');//第一个参数是要加图标的控件Name,第二 参数是要加的图片Name

procedure 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;