Q&A

  • SHIFT+TAB이 누린것처럼 처리하려고 하는데 잘 모르겠네염..
아래의 소스중에 // 부분을 처리하려고 합니다.
어떻게 해야되는지 도져히 모르겠네염..
여기저기 팁을 찾아보니 SHIFT키가 눌렸는지 체크하는건 많이 있는데
SHIFT키와 TAB를 같이 눌리도록 하는것 도져히 못찾겠어어..이렇게
질문을 올립니다..  


  ....
    Application.OnMessage :=  AppMessage;
  .....

Procedure TForm1.AppMessage(var Msg: TMSg; Var Handled:Boolean);
begin
       if Msg.wParam = VK_ESCAPE THEN
       begin
        
           // 요부분에 SHIFT+TAB이 눌린것처럼 처리하려고 합니다.

       end;
end;
1  COMMENTS
  • Profile
    김영대 2003.04.15 06:14
    // 안녕하세요  김영대(http://www.howto.pe.kr) 입니다  

    // Edit 들은 테스트로 그냥 올려놓은 것입니다
    unit Unit1;

    interface

    uses
      Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
      Dialogs, StdCtrls, Buttons;

    type
      TForm1 = class(TForm)
        SpeedButton1: TSpeedButton;
        Edit1: TEdit;
        Edit2: TEdit;
        Edit3: TEdit;
        Edit4: TEdit;
        Edit5: TEdit;
        procedure SpeedButton1Click(Sender: TObject);
      private
        { Private declarations }
      public
        { Public declarations }
      end;

    var
      Form1: TForm1;

    implementation

    {$R *.dfm}

    procedure TForm1.SpeedButton1Click(Sender: TObject);
    begin
      keybd_event(VK_SHIFT, 0, 0, 0);
      keybd_event(VK_TAB, 0, 0, 0);
      keybd_event(VK_SHIFT, 0, KEYEVENTF_KEYUP, 0);
    end;

    end.