100分请教一个问题，ctrl+del删除的问题(100分)

xaxaxa · 2006-05-19

用ctrl+del可以把dbgrideh对应的数据表里面的内容删除,我想在按ctrl+del删除当前表内容的时候想同时执行一些其他的程序,不知道这个怎么实现,就是怎么捕捉ctrl+del事件

flamboyant · 2006-05-19

onkeydown事件里面处理，

xaxaxa · 2006-05-19

能说的详细些吗？还真没有做过捕捉键盘事件的程序，并且还是一个删除操作 ctrl+del以后会出现一个提示是否删除的提示，想让我的其他一些过程在我选择‘yes’的时候执行，这个怎么处理？

xianguo · 2006-05-19

procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;  Shift: TShiftState); begin  if (Shift = [ssCtrl]) and (Key=VK_DELETE) then    ... end;

flamboyant · 2006-05-19

if (Shift=[ssCtrl]) and (key=vk_delete) then  begin    //这里写代码  end;

xaxaxa · 2006-05-19

谢谢楼上两位，现在的问题我想在ctrl+del后出现的确认对话框选择‘yes’的时候才执行我的代码应该怎么办？

xianguo · 2006-05-19

procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;  Shift: TShiftState); begin  if (Shift = [ssCtrl]) and (Key=VK_DELETE) then begin    If Application.MessageBox('确认删除?', pChar('提示信息'), MB_YESNO + MB_DEFBUTTON1) <> IDYES Then Exit;    ShowMessage('即将删除...');  end; end;

xaxaxa · 2006-05-19

谢谢楼上，你这个方法我知道， 可是在出现 ‘即将删除’; 点击确定以后系统自己的确认对话框又出来了，怎么能让系统自己的确认删除对话框去掉

xianguo · 2006-05-19

系统自己的确认删除对话框？应用系统的提示吧？ procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;  Shift: TShiftState); begin  if (Shift = [ssCtrl]) and (Key=VK_DELETE) then begin    If Application.MessageBox('确认删除?', pChar('提示信息'), MB_YESNO + MB_DEFBUTTON1) <> IDYES Then Exit;    删除操作;    其它操作;  end; end;

xaxaxa · 2006-05-19

点击确定以后系统自己的确认对话框又出来了，怎么能让系统自己的确认删除对话框去掉   请高手帮忙

xianguo · 2006-05-19

没弄懂你的意思 应用系统的提示是你在程序中设置的啊，去掉相关代码不就行了

flamboyant · 2006-05-19

dbgrid的options属性里的dgConfirmDelete属性设置为false，删除的时候不显示确认对话框。 dbgrideh就不知道了，没有用过～

xuzhic2001 · 2006-05-20

procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;  Shift: TShiftState); begin  if (Shift = [ssCtrl]) and (Key=VK_DELETE) then begin    If Application.MessageBox('确认删除?', pChar('提示信息'), MB_YESNO + MB_DEFBUTTON1) <> IDYES Then Exit;    删除操作;    其它操作;  end; end; 去掉系统自己的删除提示是更改dbgrideh的options 的dgConfirmDelete属性为false

唐佐平 · 2006-05-20

这个简单，在数据集的OnBeforeDelete事件写代码就好了

xaxaxa · 2006-05-20

多人接受答案了。

100分请教一个问题，ctrl+del删除的问题(100分)

xaxaxa

Unregistered / Unconfirmed

flamboyant

Unregistered / Unconfirmed

xaxaxa

Unregistered / Unconfirmed

xianguo

Unregistered / Unconfirmed

flamboyant

Unregistered / Unconfirmed

xaxaxa

Unregistered / Unconfirmed

xianguo

Unregistered / Unconfirmed

xaxaxa

Unregistered / Unconfirmed

xianguo

Unregistered / Unconfirmed

xaxaxa

Unregistered / Unconfirmed

xianguo

Unregistered / Unconfirmed

flamboyant

Unregistered / Unconfirmed

xuzhic2001

Unregistered / Unconfirmed

唐佐平

Unregistered / Unconfirmed

xaxaxa

Unregistered / Unconfirmed

Similar threads