TBitBtn就是一个例子:
procedure TBitBtn.CreateParams(var Params: TCreateParams); begin inherited CreateParams(Params); with Params do Style := Style or BS_OWNERDRAW; // 增加自绘状态 end;
留个爪,值得研究~
TBitBtn就是一个例子:
procedure TBitBtn.CreateParams(var Params: TCreateParams); begin inherited CreateParams(Params); with Params do Style := Style or BS_OWNERDRAW; // 增加自绘状态 end;
留个爪,值得研究~