如何继承一个控件,比如EDIT控件,然后写成自己的myEDIT控件,加入一些功能!(100分)

  • 主题发起人 主题发起人 zwfyazl
  • 开始时间 开始时间
Z

zwfyazl

Unregistered / Unconfirmed
GUEST, unregistred user!
比如,写成纯数字输入的EDIT控件
 
http://www.sunistudio.com/nicrosoft/disparticle.asp?id=37
看看《Delphi高手突破》第四章第五章完全可以解决你的问题
给了几个例子,对初学者还是不错的
 
在KEYDOWN写好事件后保存为控件模板,安装到一个你喜欢的单元就可以了。
 
修改change事件,调用StrToIntDef即可
然后进行封装
 
Tmaskedit 可以?
 
继承于TCustomEdit
defstyle: dWord;
defstyle := GetWindowLong(Edit1.Handle, GWL_STYLE);
SetWindowLong(Edit1.Handle, GWL_STYLE, defstyle or ES_NUMBER)
 
你继承于TCustomEdit
后自己override
procedure TCustomEdit.CreateParams(var Params: TCreateParams);过程
Parsms.Style:= Parsms.Style or ES_NUMBER;
就这样..OK
 
后退
顶部