捕获按键消息

Additional页上有一个TApplicationEvent控件。

   
  可以实现运用程序的功能键,例如按F1显示帮助,F2显示查询窗口等等。

   
  具体做法:  


  放ApplicationEvent在程序主窗口,在ApplicationEvent的OnMessage事件写:

  
  procedure   TForm1.ApplicationEvents1Message(var   Msg:   tagMSG;  
    var   Handled:   Boolean);  
  begin  
    if   Msg.message=WM_KeyDown   then  
        if   msg.wParam=vk_f1   then  
        begin  
            ShowMessage('帮助');  
            ...//创建帮助窗口  
            handled:=True;  
        end;  
  end;

 

---------------------------------------------------------------

举例:

procedure TForm1.aplctnvnts1Message(var Msg: tagMSG; var Handled: Boolean); begin if Msg.message = WM_KEYDOWN then begin if Msg.wParam = VK_LEFT then begin lbl1.Left := lbl1.Left - 1; Handled := true; end; if Msg.wParam = VK_RIGHT then begin lbl1.Left := lbl1.Left + 1; Handled := true; end; if Msg.wParam = VK_UP then begin lbl1.Top := lbl1.Top - 1; Handled := true; end; if Msg.wParam = VK_DOWN then begin lbl1.Top := lbl1.top + 1; Handled := true; end; edt1.Text := IntToStr(lbl1.Left - 2); edt2.Text := IntToStr(lbl1.Top - 2); end; end;

你可能感兴趣的:(捕获按键消息)