|
|
|
|
BCB：TEdit控件右对齐的简单实现 |
|
|
|
作者：未知 来源：月光软件站 加入时间：2005-2-28 月光软件站 |
实现“编辑框”右对齐
------------------------------------------------
应用：通常作为输入数值用。
实现：用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;
}
|
|
相关文章：相关软件： |
|
本类阅读TOP10