一个看起来很简单的问题，我却没搞定。在一个Edit中如何捕获 del 键与 向前删除 键被按下了？(50分)

Q

QSmile

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-11-13

• #1

一个看起来很简单的问题，我却没搞定。在一个Edit中如何捕获 del 键与 向前删除 键被按下了？

我在 OnKeyDown 里写代码。 如下：

procedure TfrmDepartMgr.edtMasterUserKeyDown(Sender: TObject;
var Key: Word
Shift: TShiftState);
begin
ShowMessage(IntToStr(Key));
end;

结果 按下 向前删除 或 "DEL&quot
都只显为 '0' OnKeyDown 事件是触发了。但 Key = 0 呢？

 

F

fanybul

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-11-13

• #2

procedure TfrmDepartMgr.edtMasterUserKeyDown(Sender: TObject;
var Key: Word
Shift: TShiftState);
begin
if (key = chr(VK_BACK)) or (key = chr(VK_DELETE)) then
ShowMessage(IntToStr(Key));
end;

 

李

李翔鹏

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-11-13

• #3

楼上不对.
没问题阿.我试了一下,楼主的可以的.KEY=8 和46

 

Q

QSmile

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-11-13

• #4

楼上的代码捕获不到 DEL

 

Q

QSmile

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-11-13

• #5

郁闷，原来是我用第三方Edit控件 有问题

 

Q

QSmile

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-11-13

• #6

多人接受答案了。