如何实现同一FORM上的多个EDIT输入的内容(数字)不能相同,如何规定每个EDIT输入的最大限制,(12分)

  • 主题发起人 主题发起人 dcdcdc
  • 开始时间 开始时间
D

dcdcdc

Unregistered / Unconfirmed
GUEST, unregistred user!
如最大输入只能是36
 
建議選擇KeyDown事件
在這個事件中有一個參數key,其類型為Word,這個參數是你輸入的按鍵的key值
在這個觸發事件中比較自己的Edit.Text與其他的edit.text內容是否一致
另外,也可以strtoint(edit.Text)>36來判斷這個數字是否大於36
 
wangzheking 你好 我是一个学DELPHI的新手,能否给说的详细一些,可以给些个例子吗 谢谢
 
输入的内容不能相同,可以用change事件,判断与其他的编辑框是否相同。
也可以判断是否大于36
 
同意lovedel,应该用Change事件,实现过程如下:
procedure TForm1.Edit1Change(Sender: TObject);
begin
if edit1.Text<>'' then
begin
if strtoint(edit1.Text)>36 then
edit1.Text:='36';
end;
//判断其他编辑框内容

end;
在这个函数里也可以添加与其他编辑框内容是否一致的代码
 
http://www.delphibbs.com/keylife/iblog.asp?author=ugvanxk
有个floatedit
 

Similar threads

D
回复
0
查看
824
DelphiTeacher的专栏
D
S
回复
0
查看
1K
SUNSTONE的Delphi笔记
S
S
回复
0
查看
900
SUNSTONE的Delphi笔记
S
后退
顶部