BCB：TEdit控制元件右對齊的簡單實現 (轉)

BCB：TEdit控制元件右對齊的簡單實現 (轉)[@more@]  實現“編輯框”右對齊
------------------------------------------------
應用：通常作為輸入數值用。
實現：用Memo元件實現。它具有右對齊屬性。
------------------------------------------------
 Memo的重要屬性設定：
  Alignment:  taRightJustify [就是它]
  Height：  單行高度;
  MaxLength:  限制輸入字元數；
  ScrollBars:  ssNone;
  WantReturns: false;
  W:  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;
 }