关于文本框长度(30分)

F

fenyun61

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-02-18

• #1

怎么样动态控制文本框的输入长度，我直接在自定义方法中设置maxlength好像不起作用

 

在

在世寻欢

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-02-19

• #2

每次输入一个字符就判断是否超出限定长度，超出则截断

 

雾

雾锁长河

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-02-19

• #3

设置属性maxlength
如果是自定义，应该在窗体初始化时调用自定义过程为该属性赋值

 

R

royal1442

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-02-19

• #4

你都输入20个字符了，再去设置 maxlength 为 5 还有用吗？
解决方法：
1，静态设置属性maxlength
2，
procedure TForm1.Edit1KeyPress(Sender: TObject;
var Key: Char);
begin
if Length((Sender as TEdit).Text) > 10 then
begin
Key := #0;
end;
end;