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

Z

zwfyazl

Unregistered / Unconfirmed
GUEST, unregistred user!
比如,写成纯数字输入的EDIT控件
 

普行

Unregistered / Unconfirmed
GUEST, unregistred user!
http://www.sunistudio.com/nicrosoft/disparticle.asp?id=37
看看《Delphi高手突破》第四章第五章完全可以解决你的问题
给了几个例子,对初学者还是不错的
 
L

luoyanqing119

Unregistered / Unconfirmed
GUEST, unregistred user!
在KEYDOWN写好事件后保存为控件模板,安装到一个你喜欢的单元就可以了。
 
Q

qq112729650

Unregistered / Unconfirmed
GUEST, unregistred user!
修改change事件,调用StrToIntDef即可
然后进行封装
 
H

hfghfghfg

Unregistered / Unconfirmed
GUEST, unregistred user!
Tmaskedit 可以?
 
M

madic

Unregistered / Unconfirmed
GUEST, unregistred user!
继承于TCustomEdit
defstyle: dWord;
defstyle := GetWindowLong(Edit1.Handle, GWL_STYLE);
SetWindowLong(Edit1.Handle, GWL_STYLE, defstyle or ES_NUMBER)
 
M

madic

Unregistered / Unconfirmed
GUEST, unregistred user!
你继承于TCustomEdit
后自己override
procedure TCustomEdit.CreateParams(var Params: TCreateParams);过程
Parsms.Style:= Parsms.Style or ES_NUMBER;
就这样..OK
 

Similar threads

顶部