需要一个财务凭证录入的带格的数字录入控件,类似于用友的那样。(200分)

  • 主题发起人 主题发起人 yaojiaqing
  • 开始时间 开始时间
yaojiaqing,透明的edit控件已经给你发过去了,
源码,例子都有
 
可以截获DBGrid的OnDrawDataCell事件自己画线

type
TDrawDataCellEvent = procedure (Sender: TObject; const Rect: TRect; Field: TField; State: TGridDrawState) of object;
property OnDrawDataCell: TDrawDataCellEvent;

输出区域可由Rect得到,数据可由DBGrid.SelectedField得到,字体可由DBGrid.Font得到,计算数字宽度、高度可由Canvas.TextHeight、Canvas.TextWidth得到,应该很容易了吧!

缺点是编辑状态没有线。

透明的Edit只要继承一个子类,重载Paint方法应该就可以了,想画个猪头都行。
 
烦请sherman兄也Mail一份给小弟我,

多谢多谢。
 
烦请sherman兄也Mail一份给小弟我,
多谢多谢。
 
烦请sherman兄也Mail一份给小弟我,
多谢多谢。

mailto: li_yin@263.net
 
烦请sherman也Mail一份给我,好吗?
谢谢!

mailto:xxy39@xac.com.cn
 
烦请sherman兄也Mail一份给小弟我,
多谢多谢。
email: ltchat@990.net
 
有劳sherman兄了,sonie@263.net
 

烦请sherman兄也Mail一份给小弟我,
多谢多谢。
email: combol@yeah.net
 
大家可以到这里下载一个非常好的货币输入控件
http://delphi.yesite.com/download_vcl/sys/currency.zip
你只要付¥10元就可得到源码
 
请sherman兄也Mail一份给我;
WEIWEI29@SOHU.COM
谢谢!
 
可通过截取 tedit的 canvas 画线
 
小试一把,别见笑!

http://personaL.hb.cninfo.net/~wzs/test.htm
 
请sherman兄也Mail一份给我;ridolph@163.net
thank you!

 
难到我的劣作不好吗,起码思路不错!(带demo.exe)
参考参考,自己就能做一个!
有更好的,麻烦 mail to me !!

请指教!
下载:
http://personaL.hb.cninfo.net/~wzs/test.htm

 
烦请sherman也Mail一份给我,好吗? 谢谢!
e-mail: wrtf@21cn.com
 
请sherman也Mail一份给我,好吗? 谢谢!谢谢!谢谢!
e-mail: zaoya@163.net
 
sherman请Mail一份给我
wrtf@21cn.com
 
wzs的控件似乎有点那个意思,不过还没仔细看.
 
后退
顶部