ITPub博客

首页 > 应用开发 > IT综合 > BCB:TEdit控件右对齐的简单实现 (转)

BCB:TEdit控件右对齐的简单实现 (转)

原创 IT综合 作者:gugu99 时间:2007-10-29 13:57:05 0 删除 编辑
BCB:TEdit控件右对齐的简单实现 (转)[@more@]  实现“编辑框”右对齐
------------------------------------------------
应用:通常作为输入数值用。
实现:用Memo元件实现。它具有右对齐属性。
------------------------------------------------
 Memo的重要属性设置:
  Alignment:  taRightJustify [就是它]
  Height:  单行高度;
  MaxLength:  限制输入字符数;
  ScrollBars:  ssNone;
  WantReturns: false;
  wordWARP:  false;
------------------------------------------------
 【注意】—— 把MEMO改造成真正的单行文本框。经上面
  设置后,MEMO不执行回车换行,但按【Ctrl+Enter】
  组合键时,MEMO依然要换行,为此增加两个事件代码
  排除这种情况(以下事件代码为每个MEMO的共享事件
  代码,即在每个MEMO的Events页选取它们即可):
 [1] “键按下”事件代码:
 TForm1::Memo1KeyDown(...)
 {
  if((Key==VK_RETURN)&&Shift.Contains(ssCtrl))
  ((TMemo *)Sender)->ReadOnly=true;
 }
------------------------------------------------
 [2] “键起来”事件代码:
 TForm1::Memo1KeyUp(...)
 {
  // if((Key==VK_RETURN)&&Shift.Contains(ssCtrl))  //不要这句,因为它有时失灵!
  ((TMemo *)Sender)->ReadOnly=false;
 }

来自 “ ITPUB博客 ” ,链接:http://blog.itpub.net/10748419/viewspace-979394/,如需转载,请注明出处,否则将追究法律责任。

请登录后发表评论 登录
全部评论
  • 博文量
    3122
  • 访问量
    2223960