不知各位是如何做工具栏的快捷键如:F5为下笔资料

Question

procedure TMDIMainForm.tbnNewClick(Sender: TObject);
begin
  SendMessage(ActiveMDIchild.Handle,WM_KEYDOWN,VK_F2,0);
end;
procedure TfrmSendEdit.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  case Key of
    VK_F2: NewVcr;
    VK_F4: DeleFL;
    VK_F5: SaveVcr;
    VK_Escape: Close;
  end;
end;

Answer 1

bigchg(戴着戒指)：
你的方法一般情况下有用，但如果我删除动作时有很多相关
东作要做该如何！

Answer 2

procedure DeleFL;
begin
  //控制代码
end;

Answer 3

不能吧，都用WIN消息啊。　呵，一个笨方法，自己建一个菜单，把它们HIDE，加上快捷键功能，不用可以了

Answer 4

devil_li()的方法比较好，可以把分数给他。