BS_OWNERDRAW风格的作用和例子(值得研究,待续)

TBitBtn就是一个例子:

procedure TBitBtn.CreateParams(var Params: TCreateParams);
begin
    inherited CreateParams(Params);
    with Params do Style := Style or BS_OWNERDRAW; // 增加自绘状态
end;

留个爪,值得研究~

posted @ 2015-08-21 19:09  findumars  Views(564)  Comments(0Edit  收藏  举报