当对Edit付值时对其格式化。(20分)

D

delphi999

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-10-27

• #1

各位大哥：
我做一控件，继承与TEdit。
当对Edit付值时，控件根据一定的格式对Text进行格式化。

 

L

luyear

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-10-27

• #2

参考MaskEdit

 

D

delphi999

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-10-27

• #3

luyear兄，小弟不才。看了还是没有领略到真谛。
我写的控件是继承TEdit的。能否给段代码让我学学。
感激不尽！

 

B

bluerain

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-10-27

• #4

1.TMaskEdit <-- TCustomMaskEdit <-- TCustomEdit
2.TEdit <-- TCustomEdit
和你所要写的东东一样.学代码不看TCustomMaskEdit的代码,还有什么别的更好的代码?!

 

D

delphi999

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-10-27

• #5

TO Bluerain兄：
谢谢！因为要赶着写出来用。
所以我用了折中的办法，我增加了一个VALUE属性，用以付值，再转为TEXT。
方法虽然笨了点，但也有效。
我一定抽空，看TCoustomMaskEdit的代码。谢谢指教。