CnPack Forum

#1 一个极其简单的自画的CheckBox
应York.W的求助，要实现一个非标准的CheckBox，check时为圆形，不check时为方型。但CheckBox组件是继承于WinControl的，本身没有OnPaint也无Paint方法供直接重载，如何画省事呢？

忽然想到，何必执着于CheckBox？于是从TShape继承了一个组件，哈哈。
声明：

[code]??TRyCheckBox = class(TShape)
??private
? ? FChecked: Boolean;
? ? FOnChange: TNotifyEvent;
??protected
? ? procedure DoChanged; virtual;
? ..

#1 >>Next Page

Forum:技术板块灌水区 ...
Thread:一个极其简单的自画的 ...
Next Thread:听我扯电脑之二十九：揭 ...

Home
Login

Powered by Discuz!