Question

关于文本框输入控制的两个小问题

Answer 1

    ——此文章摘自《Delphi开发经验技巧宝典》定价 ￥ 　特价 ￥ 购买>>

     如何设置光标到文本框的末尾

    在应用程序中为了避免录入数据时光标在文本框的其他位置 而没有在文本框的末尾 导致数据不正确 可以设置光标在文本框的末尾 本例实现单击 光标移到末尾 按钮使光标移到文本框的末尾 如图 所示

图   设置光标到文本框的末尾

    在 光标移到末尾 按钮的单击事件中使文本框获得焦点 然后设置光标的起始位置在文本框的内容之后 主要代码如下     procedure TForm btn Click(Sender: TObject);    begin      Edit SetFocus;      Edit SelStart := length(trim(Edit Text));    end;

     控制在文本框中只能输入两位小数

    本例实现在KeyPress（键盘按下）事件中判断录入的文本中是否有小数点 如果有 则判断小数点后的小数位是否超过两位 如果超过两位 则控制键盘不可录入

lishixinzhi/Article/program/Delphi/201311/8491