C chen bin Unregistered / Unconfirmed GUEST, unregistred user! 2002-01-20 #1 在窗口中，放有MainMenu,listview 和 edit ，设置一个TMenuIem项ShortCut为del键，作用是删除listview的选中项目，但是无法用del键删除edit中的text了.<br>请问各位大虾，如何解决？？尽量给出事例！谢谢！
在窗口中，放有MainMenu,listview 和 edit ，设置一个TMenuIem项ShortCut为del键，作用是删除listview的选中项目，但是无法用del键删除edit中的text了.<br>请问各位大虾，如何解决？？尽量给出事例！谢谢！
A allenk Unregistered / Unconfirmed GUEST, unregistred user! 2002-01-20 #3 procedure TForm1.Edit1KeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);<br>begin<br> case Key of<br> VK_DELETE :<br> begin<br> Edit1.ReadOnly := True ;<br> end ;<br> end ;<br>end ;<br>
procedure TForm1.Edit1KeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);<br>begin<br> case Key of<br> VK_DELETE :<br> begin<br> Edit1.ReadOnly := True ;<br> end ;<br> end ;<br>end ;<br>
S sxbrf Unregistered / Unconfirmed GUEST, unregistred user! 2002-01-20 #4 procedure TForm1.Edit1Enter(Sender: TObject);<br>begin<br> TMenuItem.ShortCut:= ShortCut(Word(0), []);<br>end ;<br><br>procedure TForm1.Edit1Exit(Sender: TObject);<br>begin<br> TMenuItem.ShortCut:= ShortCut(VK_DELETE, []);<br>end ;<br><br>
procedure TForm1.Edit1Enter(Sender: TObject);<br>begin<br> TMenuItem.ShortCut:= ShortCut(Word(0), []);<br>end ;<br><br>procedure TForm1.Edit1Exit(Sender: TObject);<br>begin<br> TMenuItem.ShortCut:= ShortCut(VK_DELETE, []);<br>end ;<br><br>
C chen bin Unregistered / Unconfirmed GUEST, unregistred user! 2002-02-03 #5 这样做，会临时取消快捷键！<br>有没有更好的办法？？
