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

类别:编程语言 点击:0 评论:0 推荐:
             实现“编辑框”右对齐
------------------------------------------------
应用:通常作为输入数值用。
实现:用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