如何限制edit输入框中的输入？？
要求是：
窗体启动时，edit中加载了一组数字如101001，
前面的101不允许用户修改？？？如何只允许用户修改后面三位001，且从101开始，后面最多只能输入三位数，
即edit输入框的最大长度为6

至今只看到一个医院方面的商业软件做到了这点，不知道各位高手们在delphi下有没有办法实现？？？

編輯記錄

HI, 小弟整合了兩位大大 wameng、h@visli 在下面這篇的 KeyDown 指令

http://delphi.ktop.com.tw/board.php?cid=30&fid=69&tid=88862

1、請將 Edit1 的 MaxLength 設為 6
2、請在 KeyDown 事件加入下面的 Code

[code delphi]
procedure TForm1.Edit1KeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);
var Mgs: TMsg;
procedure EatKey;
begin
PeekMessage(Mgs, 0, WM_CHAR, WM_CHAR, PM_REMOVE);
end;
begin
case Key of
35..40:; // Home, End, Left, Top, Right, Bottom
8:
if (Length(Edit1.Text) <= 3) or (Edit1.SelStart <= 3) then
EatKey;
48..57:;
else
// 至於下面這個為什麼設 7 因為我設 0 沒用...
// 所以有特殊的按鍵，像是 Del 我就無法阻止
Key := 7;
EatKey;
end;
end;
[/code]

------
價值的展現，來自於你用哪一個角度來看待它!!

改用 MASKEDIT就可以解決
MASKEDIT1.EDITMASK:=' '\1\0\1###';
查一下HELP就知道

另外, 我的防毒系統抓出你置放的鏈結有問題哦!
===================引 用 zgjob 文 章===================

如何限制edit输入框中的输入？？
要求是：
窗体启动时，edit中加载了一组数字如101001，
前面的101不允许用户修改？？？如何只允许用户修改后面三位001，且从101开始，后面最多只能输入三位数，
即edit输入框的最大长度为6

至今只看到一个医院方面的商业软件做到了这点，不知道各位高手们在delphi下有没有办法实现？？？

編輯記錄

哦~~~，對哦，PD 版大說的對~~，小弟只顧著解決問題，忘了 Delph 的特性 -- 元件 

------
價值的展現，來自於你用哪一個角度來看待它!!

這是我的防毒抓出來的