H haiping Unregistered / Unconfirmed GUEST, unregistred user! 2002-08-29 #1 如何锁定EDIT中的前几个字符？使其不可编辑，而其后的可以编码
N naughtboy Unregistered / Unconfirmed GUEST, unregistred user! 2002-08-29 #2 用maskedit试试？我也不知道行不行，不行的画就自己在onkeypress事件里处理拉，也不难得
X xeen Unregistered / Unconfirmed GUEST, unregistred user! 2002-08-29 #3 procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char); begin if (edit1.SelStart<4) or ((edit1.SelStart=4) and (key=#8)) then //前四位不可编辑. key := #0; end;
procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char); begin if (edit1.SelStart<4) or ((edit1.SelStart=4) and (key=#8)) then //前四位不可编辑. key := #0; end;
淡 淡淡的笑 Unregistered / Unconfirmed GUEST, unregistred user! 2002-08-29 #6 要是我,不用事件处理,而采用两个edit加一个label即可实现(外观看起来象一个 edit而已.
吴 吴明桓 Unregistered / Unconfirmed GUEST, unregistred user! 2002-08-29 #7 xeen说的有个特别 就是如果用删除我键可以把前四位字符删除, 可不可以固定前四个字符不被删除呢
X xeen Unregistered / Unconfirmed GUEST, unregistred user! 2002-08-29 #8 oh,那就在onkeydown事件中加上: if (edit1.SelStart<4) and (key = vk_delete) then //前四位不可编辑. key := 0;
C cavenfeng Unregistered / Unconfirmed GUEST, unregistred user! 2002-08-29 #9 很简单，用MaskEdit，按你的要求设置EditMask属性就可以了。
