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

发布日期：2022/4/10

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

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

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

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

在光标移到末尾按钮的单击事件中使文本框获得焦点然后设置光标的起始位置在文本框的内容之后主要代码如下

procedure TFormbtnClick(Sender: TObject);

begin

EditSetFocus;

EditSelStart := length(trim(EditText));

end;

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

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

主要代码如下

procedure TFormEditKeyPress(Sender: TObject; var Key: Char);

var

p c: Integer;

begin

p := Pos( TEdit(Sender)Text);

if p > then

begin

c := Length(TEdit(Sender)Text);

if c >= p + then

key := #;

end;