K kingkong Unregistered / Unconfirmed GUEST, unregistred user! 2001-12-21 #1 我想在Edit或其它编辑控件中屏蔽Del键，但是怎么做都不成功，请各位想想办法， 人多力量大嘛!
浪 浪里白条 Unregistered / Unconfirmed GUEST, unregistred user! 2001-12-21 #2 procedure TForm1.Edit1KeyDown(Sender: TObject var Key: Word; Shift: TShiftState); begin if key=46 then key:=0; end;
procedure TForm1.Edit1KeyDown(Sender: TObject var Key: Word; Shift: TShiftState); begin if key=46 then key:=0; end;
L linglingx Unregistered / Unconfirmed GUEST, unregistred user! 2001-12-21 #3 同意楼上的 当获取当前的按键是46的时候，取消不就可以了么
K kingkong Unregistered / Unconfirmed GUEST, unregistred user! 2001-12-21 #4 我把Del的键值记为7了，应该是46，难怪我设key=7没有反应，不过为什么我在dos 下取得的键值是7而delphi下却是46呢?
