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

             实现“编辑框”右对齐
------------------------------------------------
应用：通常作为输入数值用。
实现：用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;
 }

本文地址：http://com.8s8s.com/it/it29912.htm