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

BCB：TEdit控件右对齐的简单实现 (转)[@more@]  实现“编辑框”右对齐
------------------------------------------------
应用：通常作为输入数值用。
实现：用Memo元件实现。它具有右对齐属性。
------------------------------------------------
 Memo的重要属性设置：
  Alignment:  taRightJustify [就是它]
  Height：  单行高度;
  MaxLength:  限制输入字符数；
  ScrollBars:  ssNone;
  WantReturns: false;
  wordW ARP:  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/，如需转载，请注明出处，否则将追究法律责任。

转载于:http://blog.itpub.net/10748419/viewspace-979394/